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Oud van Goudriaan 6 

Rob Goudriaan bekeek weer een aan¬ 
tal programma’s uit het recente verle¬ 
den, die nog steeds de moeite waard 
zijn. 


C-64 Vakantiegames 20 

Electronic Arts heeft kort geleden 
weer een aantal nieuwe games uitge¬ 
bracht. Van Tennis tot boksen, van bil¬ 
jart tot schaken. 

Software 26 

Nog meerspellen die zijn uitgekomen 
van over de hele wereld. Vooral C-64 
gebruikers kunnen hun plezier weer 
op. 


Geos Info 36 

De vaste Geos-rubriek met tips, vra¬ 
gen en informatie over dit besturings¬ 
systeem. 


Geos Machinetaal(3) 39 

Alweer de derde aflevering van deze 
serie, met ditmaal aandacht voor de 
listing van QuickTop. 


Tips & Trucs 128 46 

De vaste rubriek met wetenswaardig¬ 
heden voor de 128-gebruiker. Aanslui¬ 
tend gaan Johan & Johan in op wat 
foutjes in de voorgaande Commodore 
Info. 


Vaste Rubrieken 
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24 

Kleine advertenties 

29, 38 


Listing-rubrieken 

C-64 9 

C-16 29 

C-128 50 


Kasboek 128 56 

Een nieuw software-pakket voor het 
bijhouden van de financiële admini¬ 
stratie op de 128. 


Kabelkrant en DTV 58 

PC House is een bedrijf, dat zich heeft 
toegelegd op videokoppelingen aan 
de Amiga, kabelkranten en ln-house 
communicatie. Informatie voor iede¬ 
reen die plannen in die richting heeft. 


Amiga & Muziek 66 

Dat de Amiga zowel grafisch als muzi¬ 
kaal een hoog niveau heeft zal de le¬ 
zers wel bekend zijn. In dit artikel 
wordt nader ingegaan op de kwalitei¬ 
ten van de Amiga en worden ook een 
aantal muziekpakketten besproken. 


AmigaDOS (4) 72 

De vierde aflevering van onze DOS- 
serie voor Amiga gebruikers. Deze 
keer is er aandacht voor de zoge¬ 
naamde MountList. 


Amiga C cursus (2) 77 

In dit tweede deel van de cursus over 
de programmeertaal C wordt dieper 
ingegaan op programmaloops: pro- 
grammadelen, die meerdere keren 
herhaald kunnen worden. 


Easyl Tekenblad 81 

Een nieuw hulpmiddel bij het werken 
met grafische programma’s. Een te¬ 
kentafel met veel mogelijkheden. 


Redaktioneel 

Het gaat goed met Commodore. De Amiga stoot nu werkelijk door, en ook met de an¬ 
dere modellen gaat het boven verwachting. Zo zullen de landelijke apothekers vanaf 
januari gaan werken met een Amiga 500 met CD-ROM. Dit betrekkelijk nieuwe op¬ 
slagmedium zal overigens ook voorde Amiga 2000 beschikbaar komen. Vanaf janua¬ 
ri komen er ook CD-diskettes uit, waarop maar liefst 140 Mb aan informatie staat. Een 
eenvoudig kabeltje naar de Amiga en draaien maar. In het begin verwacht Commo¬ 
dore vooral veel games op CD, maar in de loop van volgend jaar zullen er ongetwij¬ 
feld ook andere programma’s beschikbaar komen. De 128 gaat eveneens in grote 
getale voor prijzen rond de duizend gulden de winkel uit, en de verkoop van de C-64 
zit nog steeds in de lift. Dit laatste kwartaal gaan er zo’n 16.000 over de toonbank, 
wat een verdubbeling betekent ten opzichte van vorig iaar. Wie dus denkt dat deze 
machine op sterven na dood is, heeft het duidelijk aan net verkeerde eind. 

Al met al redenen genoeg voor de redaktie om de Commodore-gebruikers hele pret¬ 
tige feestdagen en een hoopvol 1989 toe te kunnen wensen. 

De redaktie 
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OUD VAN Goudriaan 

De programma’s uit het recente verleden opnieuw bekeken. 



Goonies 


Airwolf 

Ook in dit spel moet U de reddende 
engel spelen. Er moeten weer eens 
mensen worden gered. Er zitten er 5 
opgesloten in een uitgebreid grotten 
stelsel. U bent nu de piloot van een 
helikopter. Om het spel nog een paar 
graden moeilijkerte maken, is het niet 
mogelijk meer dan één passagier mee 
te nemen. Natuurlijk ook in dit spel 
ontbreken de nodige hindernissen 
niet. Zo is de helikopter erg lastig te 
besturen, stil hangen is er niet bij, de 
joystick moet continue worden bewo¬ 
gen om niet neer te storten. Er staan 
ook de nodige muren in de weg, die al¬ 
leen met een speciale handel en de 
nodige munitie vernietigd kunnen wor- 
dene, hierdoor komt de doorgang vrij. 
Het is aan te raden direkt na de start 
rechts af te gaan, maar pas intussen 
wel op voor de rondvliegende kogels, 
de handel kapot schieten en meteen 
terug naar het beginpunt. Hierdoor is 
de doorgang naar de verdere hinder¬ 
nissen geopend. Maak in geen geval 
gebruik van de lift, en let extra goed op 
de vallende rotsblokken. Het is niet 
onverstandig achter deze rotsblokken 
aan te vliegen. Soms gaan de deuren, 
die zo moeizaam zijn geopend weer 
achter je dicht, er zit dan niets anders 
op dan weer een handel stuk te schie¬ 
ten. Jammer is dat er altijd weer aan 
het begin moet worden gestart als 
een leven is verspeeld. Het spel is erg 
moeilijk juist door de vele handelingen 
die moeten worden verricht. Het is 
een spel dat daardoor alleen geschikt 
is voor de echte doorzetters, maar 
deze zullen er dan ook de nodige uren 
mee kunnen doorbrengen voordat het 
spel is uitgespeeld. Het spel is ten ein¬ 
de als alle vijf de personen uit de grot 
zijn gered. Succes ermee, mij is het in 
ieder geval niet gelukt. 

Henry’s House 

Ook nu weer een spel dat we zeker 
mogen rekenen tot de kategorie onbe¬ 
kende spelen. Waarschijnlijk komt dit 
doordat het niet tot de populaire 
schietspelen mag worden gerekend. 
Omschrijven, indelen tot een katego¬ 
rie is bij dit spel moeilijk, laten we het 


verzamelspel noemen. ‘Alles’wat er in 
de verschillende kamers is moet ver¬ 
zameld worden. Alles moet hier niet al 
te letterlijk worden opgevat. Er zijn 
een aantal voorwerpen die een dode¬ 
lijke uitwerking hebben. De enige ma¬ 
nier om hier achter te komen is een 
rondgang te maken door Henry’s huis 
en het een en ander te proberen. 
Onze ontdekkingstocht begint met 
Henry in een kamer. Hoeden, zakken 
geld, en stampende voeten, het kan 
allemaal niet op. De lachende bolle¬ 
tjes blijken ook al niet te vertrouwen. 
We hebben het al gezegd, verzamel 
de voorwerpen, als er een sleutel ver¬ 
schijnt, deze snel oppakken en hier¬ 
mee is een deur naar een volgende 
kamer te openen. Dit blijkt een badka¬ 
mer te zijn. Vol ontzag aanschouwt 
Henry al dit moois. In deze fantasti¬ 
sche schatkamer blijkt zelfs een 
druppelende kraan niet te ontbreken. 
Door het pakken van de stop in het 
bad, blijkt al het water weg te lopen, 
maar hierdoor wordt wel weer een 
sleutel zichtbaar. Er verschijnt een le¬ 
vensgrote tandenborstel in het beeld, 
een levensgevaarlijk voorwerp, dat 
men beter uit de weg kan gaan. De 
volgende kamer op onze ronde blijkt 
de keuken te zijn. Ondanks dat het 
deeg er aantrekkelijk uitziet, kun je er 
beter van afblijven, dit geldt ook voor 
de kokend hete thee. De tocht wordt 
steeds huiselijker, een gezellig haard¬ 
vuur, een t.v. die staat te spelen, ja 
zelfs een klok met een vogeltje komen 


wij op onze route tegen. In de volgen¬ 
de kamer blijkt het een grote ravage te 
zijn, zelfs Henry schrikt hiervan. Tij¬ 
dens het opruimen van de rommel 
komt er steeds een vliegtuigje langs 
vliegen. Er inspringen is hier de bood¬ 
schap, uitstappen doen we pas op de 
hoogste etage. Hier is de slaapkamer, 
omdat Henry er nog steeds niet ge¬ 
noeg van blijkt te hebben en Ma de 
boel ook nog niet in de war komt gooi¬ 
en, moeten hier nog de nodige voor¬ 
werpen bij elkaar worden geraapt. Het 
grootste probleem komt echter nog, 
diep in het gebouw bevindt zich nog 
een kelder. Het spookt hier niet alleen, 
er vliegen tot overmaat van ramp ook 
nog vleermuizen rond. De doodskop¬ 
pen blijken tegen de verwachtingen in 
te helpen. Een lieve, of is het juist een 
kwaadaardige fee, tovert in alle ka¬ 
mers weer voorwerpen. Als U dus nog 
energie en levens over heeft kunt U de 
gehele rondgang nog eenmaal ma¬ 
ken. 

Paperboy 

Een spel dat zeker in deze rubriek 
thuishoort is het spel Paperboy. Het 
programma is in een aantal school¬ 
kranten meermalen uitgekozen tot het 
populairste spel op de Commodore. 
Honderden scholieren gaan elke mor¬ 
gen op pad om de krant bij de mensen 
te brengen om hun zakgeld te verdie¬ 
nen, en U te voorzien van het dage¬ 
lijks portie nieuws. Zo ook in dit spel. 
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Commodore 64 


We verplaatsen ons in dit programma 
naar een buitenwijk in een middelgro¬ 
te Amerikaanse plaats. Het spel be¬ 
gint op een maandagochtend, je heb 
je tas vol met kranten voor de nieuws¬ 
gierige abonnee’s. Nou ja, wat heet 
vol, meer dan acht kranten hoeven er 
niet bezorgd te worden. Nu staan de 
beste stuurlui altijd aan wal, het lijkt zo 
makkelijk om de kranten met een gro¬ 
te boog in de tuin te gooien. Het wordt 
nog moeilijker door het verkeer op de 
weg. Allerlei soorten hindernissen kan 
je tegen komen: dronken bestuurders, 
de jeugd op skateboards, zelfs op hol 
geslagen autobanden proberen je het 
leven zo zuur mogelijk te maken. Een 
uitkomst bij al deze moeilijkheden lijkt 
te gaan rijden op de stoep. Maar de 
stoep is ook niet meer wat hij geweest 
is, het is hier zo mogelijk nog gevaar¬ 
lijker. Een waarschuwing voor de 
hond is hier zeker ook op zijn plaats. 
Is de moed je nog niet in de schoenen 
gezonken, dan kun je proberen de 
mensen die (nog) geen abonnement 
op de krant hebben, deze een krant 
door de ramen te gooien. Leuk ? Het 
levert in ieder geval wel veel punten 
op. Pas wel op dat dit niet bij een van 
uw abonnees gebeurt want dan gaat 
het punten kosten. Kom je onderweg 
een stapel kranten tegen, dan moet 
daar snel over heen worden gereden, 
dan worden ze aan je voorraad toege¬ 
voegd. Ook meer punten levert het op 
als de krant niet voor de deur wordt 
gegooid, maar precies in de bus te¬ 
recht komt. Is het je uiteindelijk gelukt 
alle abonnees een krant te bezorgen, 
dan wordt het aantal lezers uitgebreid. 
Je hele wijk bestaat uit maar één 
straat, met aan het eind een hinder- 
nisbaan. Ook hier zijn natuurlijk weer 
de nodige punten te verdienen. Hier 
moeten kranten worden gegooid naar 
kegels en schietschijven. Als je hierbij 
valt is de extra ronde afgelopen, maar 
het kost je gelukkig geen leven. Dit 
was dan je eerste werkdag, er staat je 
dus nog heel wat te wachten. Nieuws¬ 
gierig geworden, ontdek zelf waarom 
de scholieren dit spel toen het beste 
spel vonden. Eén ding moet me nog 
van het hart, het spel behoeft niet juist 
‘s morgens te worden gespeeld. 

The goonies 

The goonies is een uitgebreid spel 
met 8 velden, waarbij ook nog een 
aantal verschillende moeilijkheids 
graden. Samen met een broer probe¬ 
ren de goonies een geheime uitgang 
te vinden. Bij het eerste veld zie je de 
doorsnee van een huis, dat drie ver¬ 
diepingen heeft. Op de middelste sta 
je met je broer. Op de onderste verdie¬ 


ping loopt één of andere boosaardige 
dame en helemaal boven zie je een 
stoel staan. Via een luik kom je op een 
soort zolder, hier staat een drukpers. 
Eén van de broers moet naar boven 
gaan, de stoel pakken en de drukpers 
in werking zetten. De andere gaat 
naar beneden. De dame is zo druk be¬ 
zig met het bij elkaar rapen van het net 
gedrukte geld, datje ongemerkt langs 
haar heen kunt glippen. Door het wa¬ 
terreservoir leeg te gooien verschijnt 
er een gat in de vloer, waar je door 
kunt kruipen. Nu moet je broer er nog 
langs. Dit maakt een nieuwe taktiek 
noodzakelijk. Wacht eerst tot de dame 
binnen is, gooi dan een briefje naar 
beneden, en vlucht door het gat naar 
je broer. Bij het tweede veld staan je 


weer extra moeilijkheden te wachten, 
hier zijn maar twee etages, je staat sa¬ 
men met je broer op de bovenste eta¬ 
ge. Drie op en neer gaande zandzak¬ 
ken verhinderen je een makkelijke 
doorgang. Op de tweede etage han¬ 
gen een aantal emmers, deze gooien 
regelmatig hun inhoud weg. Je kunt 
wel raden dat de inhoud geen water is, 
de inhoud is dodelijk. De zak die er 
hangt moet opgehesen worden. De 
bal die op het water drijft is noodzake¬ 
lijk om er op te kunnen gaan staan, en 
je te verplaatsen. Op de onderste ver¬ 
dieping staat een handel, die gebruikt 
moet worden, om verder te kunnen 
spelen. Zodra je de sleutel hebt ge¬ 
pakt gaat er een geheime doorgang 
open. In veld drie overheersen de bui¬ 
zen, de druk in het systeem is hier te 
regelen door middel van kranen. Om 
de doorgang naar een volgend veld te 
openen, moet de druk in één van de 
buizen zo ver worden opgevoerd tot 
deze knapt. Ook voor deze klus heb je 
de hulp van je grote broer nodig. Eén 
of andere dwaas op de bovenste eta¬ 
ge probeert de douches. Hierdoor ont¬ 
staan er stoomwolken, die je mooi een 
leven kunnen kosten. Het moet een 
samenspel zijn met je broer om de di¬ 


verse kranen open te draaien waar¬ 
door de ander door kan gaan. Het 
duistere figuur aan het eind van dit 
veld is een erg gevaarlijke, hij schiet 
op alles wat er maar beweegt. Bij het 
bestuderen van het vierde veld vallen 
de handels aan het plafond op. Zodra 
we hier aan gaan hangen verandert 
de complete etage. Er gaan kleppen 
open en er komen ballen aanrollen. 
De kunst is nu om een bal zo lang mo¬ 
gelijk op een etage te houden, hier¬ 
door krijgt de ander de gelegenheid 
om weer een stukje verder te komen. 
Een etage lager moet de broer het¬ 
zelfde kunstje uit halen tot we alle 
twee veilig beneden zijn aangeko¬ 
men. Bij veld vijf slaat de schrik je om 
het hart, een grote doodskop die mid¬ 


den op het veld staat blijft je aansta¬ 
ren. De bedoeling is om door de ver¬ 
schillende onderdelen van dit veld een 
ladder te bouwen die je naar de uit¬ 
gang kan leiden. De volgende hinder¬ 
nissen moet je echt even voor gaan 
zitten om hem te bestuderen. Plat¬ 
forms komen en gaan. Het duurt even 
voor je de juiste plaats kunt bereiken 
om de handel over te zetten. Het vol¬ 
gend veld blijkt een woest stromende 
rivier te zijn. Er moet hier flink gewerkt 
worden. Het spel is gelukkig even te 
stoppen door het indrukken van de 
spatiebalk. Hierdoor is er soms nog 
wat overzicht, de moeilijkheden blij¬ 
ven hier komen en gaan. Eigenlijk is 
er in dit spel niets te dol, vleermuizen, 
trappen, valluiken, flippers, piraten¬ 
schepen en schatkisten. Je kunt het 
zo gek niet denken of het is er. De hulp 
van je broer is hier onontbeerlijk. Dit is 
één van de weinige spelen die er zijn 
voor twee personen, waarbij je niet te¬ 
gen elkaar maar met elkaar speelt. 
Zonder hulp van de tweede speler is 
het zo goed als onmogelijk om het 
spel helemaal uit te spelen. 
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Checksum C-64 


Svntax Checksum 
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Het overtikken van een listing kan een heel karwei 
zijn en als u een beetje normaal mens bent dan 
maakt u daarin beslist een aantal fouten. Nu is niets 
moeilijker om de fouten uit je eigen werk te halen. Al 
geruime tijd heeft Jan Bodzinga hiervoor een zgn. 
Checksum-programma geschreven. Om de vele 
nieuwe lezers van Commodore-info te helpen volgt 
hieronder nog een keer een volledige uitleg over de 
werking van dit programma, waarmee het, hoe 
vreemd dat misschien ook lijkt, echt mogelijk is om 
met behulp van dit programma de fouten in elke door 
ons geplaatste listing op te sporen. 

Hiervoor gaat u als volgt te werk: 

1. U tikt de listing heel zorgvuldig over en SAVEt hem 
voordat u het programma RUNt op een diskette of 
cassette. 

2. U tikt het RUN commando in. Mocht het program¬ 
ma de boodschap 'FOUT in dataregels!’ geven dan 
heeft u een fout bij het overtikken gemaakt. Herstel 
dan de fout en SAVE de verbeterde versie. Mocht het 
programma met de boodschap 'data is weggezet 
checksum testen met sys...'komen dan is tot dusver 
alles goed. Het programma is nu in een stukje 
machinetaalgeheugen gezet. Als u het NEW com¬ 
mando geeft blijft het toch in de computer staan. 

Alle door ons geplaatste programma’s zijn in Basic 
geschreven. 

Als u een programma heeft overgetikt SAVE het 
eerst, mocht er iets mis gaan dan hoeft u niet de ge¬ 
hele listing opnieuw te gaan intikken. Als u nu een 
programma op fouten wilt gaan controleren dan kunt 
u dat in het geheugen ladenjwel eerst het checksum 
programma hebben gerund). Vervolgens typt u zon¬ 
der het programma te runnen de opdracht sys 
49152(c-64) of sys 1536 (c-16 en plus/4)in. 

Als alles goed is gegaan loopt er nu een rij regelnum¬ 
mers over het scherm met getallen erachter. Dezelf¬ 
de lijst staat ook achter elk door ons geplaatste pro¬ 
gramma. Wijkt nu een nummer achter een regelnum¬ 
mer af van het nummer dat in het blad staat dan 
heeft u in die regel iets anders ingetikt dan er in het 
blad stond. U kunt de stroom getallen d.m.v. de 
RUN/STOP toets pauzeren en weer vervolgen met 


30 

40 


50 

55 

60 

70 

80 


90 

95 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 


en 

pokei,a:i=i+l:b=b+a:goto2 0 
if bol6844thenprint" [SHIFT-CLR] fo 
ut[SPACE]in[SPACE]dataregels!":b=0 
: end 

poke49184,148:poke49185,192 
i=49300 

read a: ifa<0then80 
pokei,a:b=a+b:i=i+l:gotoöO 
if b<>20068thenprint"[SHIFT-CLR]fo 
ut[SPACE]in[SPACE]dataregels![SPAC 
E](vanaf[SPACE]regel[SPACE]240) M :b 
=0:end 

print"data[SPACE]is[SPACE]weggezet 

TT 

print"checksum[SPACE]testen[SPACE] 
met[SPACE]sys49152" 
data 165,43,166,44,133,163,134,164 
,169,147 

data 32,210,255,160,0,240,3,32,73, 
192 

data 32,73,192,208,1,96,32,225,255 
, 208 

data 3,76,116,164,32,81,192,32,73, 
192 

data 240,12,201,32,240,247,24,101, 
167,133 

data 167,7 6,37,192,166,167,169, 0,1 

32.168 

data 32,205,189,169,13,32,210,255, 

164.168 

data 76,17,192,200,208,2,230,164,1 
77,163 

data 96,162,0,189,123,192,240,6,32 
, 210 

data 255,232,208,245,32,73,192,170 
,32,73 

data 192,132,168,32,205,189,162,3, 
169,32 

data 32,210,255,202,208,250,169,0, 
133,167 

data 164,168,96,82,69,71,69,76,32, 
0 

data 
data 
data 
data 
data 


-1 

165,197,201,3,240,7,201,4,240 
6,76,148,192,76,34,192,169 
147,32,210,255,76,161,192 
-1 


** 


EINDE LISTING checksum 64 


** 


: ' 
j: 

de F1 

of F7 toets. Het is uitermate belangrijk dat u 







goed met dit programma overweg kunt en mocht u 

REGEL 

1 

249 

REGEL 140 

96 


het niet goed werkend krijgen bel dan gerust even 

REGEL 

2 

84 

REGEL 150 

96 

: LivLvy-XvX-x-xox- 

met onze listingservice telefoonlijn. (Maandag 17.00 - 

REGEL 

3 

105 

REGEL 160 

127 

X-X-X-X-X-X v.v v.v v; ;.v v.v ;.v 

i*:*:##:#: 888:ï 

xx-x-x-x .■ v.v •. ....... *. .v.v.v . 

\v.y .y.v.v.y.y.; v.v y.y.y.y.y.y.y.; 
;XyX;Xy.;X;.yXvX;.v.;.vH;X;X;XyX; 

21.00 uur. Telefoonnummer 02155-25162.) 

REGEL 

REGEL 

4 

5 

2 

246 

REGEL 170 
REGEL 180 

71 
223 

: ::: :: :: : ' 

:• •: :• •: xxvXvXv: 

x-xvx 



REGEL 

6 

152 

REGEL 190 

73 

.... •: v. 

i 

1 

rem ****************************** 

REGEL 

7 

249 

REGEL 200 

79 

:#S¥fx¥:j:¥?WAiX : 5: : 'W:« ; X 

. ;-:-x-x-x- -x-:-x :-:-:-x-:-:-:-:-x-Xv:::vXv: 


* ★ ★ 

REGEL 

10 

157 

REGEL 210 

109 


2 

rem basic loader "SYNTAX.CHECKSUM" 

REGEL 

20 

64 

REGEL 220 

106 

x-xxvXvX\\vX\v \vXvXvXvX- 

Wm 

•:: > ;X ; •: / :• 

3 

rem na de commando's "run" en "new 

REGEL 

30 

38 

REGEL 230 

225 

: 


TT 

REGEL 

40 

57 

REGEL 240 

16 

v-v.v.v. 



REGEL 

50 

14 

REGEL 250 

163 

wmÈmÊÊm 

:::x: -x-x-x-x xxx-x-x-x- 

4 

rem blijft dit programma in het ge 

REGEL 

55 

251 

REGEL 260 

92 

xxtxxtxtxxx: xxxxxx: : x::v.:.;.vx 

^^^^^:>.:4v:v:::v:::v:::v: : : : :::v: : :v 


— 

REGEL 

60 

192 

REGEL 270 

22 


5 

rem heugen, laad het te testen pro 

REGEL 

70 

42 



XX: : : 'X: : : :• X:.> •: xj: XXLXXLXxXiX 

:a:SS:*ï:ï5;ï:SSÏ-SSSÏ:5:i5-5.:::::5.:::: 


— 

REGEL 

80 

244 



ifctiiliSI 

:-xvx-:-:-x-:-x-:-:-:-x 

6 

rem gramma en tik daarna sys 49152 

REGEL 

90 

245 



:: : :Xv. ; : -X-x-x- 

- : x : j j‘: :j j. xj 

- ;.;.;.;.;.v.*.v.v. .v.v.. ;.v •. 



REGEL 

95 

237 



■: xxx-x-x-xv.-: 

• v>.v.vX XvXvXv •: > wXwaw 

- -. .v.'.v 

: av.-av.-avX-: 

7 

rem ****************************** 

REGEL 

100 

183 



iliiiiii ilii-ilii 


* * * 

REGEL 

110 

158 



•yiïXYXxx'X': i'x: ':':':X;xxxxxx 
' . : . 11 : : •;xx: : xx.x;X 

::.:::xx::xvx:>xx:v::::::::x:-: 

:• xxvxvx-xxx- 

v.;.v.*...v.v.-.v.v.v.vv.v ^• 

■:-:X:.vX;.:X;.;..;;.:.vX;.;X;...:XvX;.vX;.:X 

10 

i=49152 :rem beginadres 

REGEL 

REGEL 

120 

1 3 0 

232 

1 83 




WmvM 



















PRINT OUT C 64 met o.a. Schermtekenen 


Powertekst 


Jeroen Jagt stuurde ons een programma dat de stan¬ 
daard karakters vergroot. Dit gebeurt door ze op te 
bouwen uit andere karakters. Het is een vrij ingewik¬ 
keld programma, maar er wordt in het programma 
een uitleg over de werking gegeven. Door wat met dit 
programma te experimenteren komt U veel meer te 
weten over de opbouw van het programma. 


poke53280,0:poke53281,0:print"[SHI 
FT CLR][COM-4]" 

print"dit[SPACE]programma[SPACE]ge 
eft[SPACE]grote[SPACE]karakters[SP 
ACE]die[4xSPACE]opgebouwd[SPACE]zi 
jn[SPACE]uit[SPACE]kleinere” 
print"in[SPACE]regel[SPACE]560-610 
[SPACE]ziet[SPACE]u[SPACE]de[SPACE 
]tekst.om[SPACE]nu[5xSPACE]de[SPAC 
E]karakters[SPACE]te[SPACE]krijgen 
print"zoals[SPACE]u[SPACE]wenst[SP 
ACE]moet[SPACE]u[SPACE]als[SPACE]v 
olgt[SPACE]doen:" 

print"-[SPACE]voor[SPACE]gewone[SP 
ACE]letters[SPACE]en[SPACE]cijfers 
[SPACE]voert[3xSPACE]u[SPACE]ze[SP 
ACE]gewoon[SPACE]in." 
print"-[SPACE]voor[SPACE]reverse[S 
PACE]letters[SPACE]houd[SPACE]u[SP 
ACE]shift[SPACE]in[3xSPACE]en[SPAC 
E]voert[SPACE]u[SPACE]ze[SPACE]in. 


I 30 


100 

110 

120 

130 


140 

145 


146 


150 


print" - [ SPACE ] voor [ SPACE ] SVW [ SPACE 
] enz . [ SPACE ] voert [ SPACE ] u [ SPACE ] ge 
woon[SPACE]het[SPACE]bij-[2xSPACE] 
behorende[SPACE]karakter[SPACE]in. 
print"[SPACE](dus[SPACE]S[SPACE]=> 
[SPACE]s).nb[SPACE]typ[SPACE]achte 
r[SPACE]de[SPACE]string[4xSPACE]'p 
rintchr$(142)' 

print"[SPACE]vergeet[SPACE]dan[SPA 
CE]niet[SPACE]om[SPACE]bij[SPACE]d 
e[SPACE]volgende[SPACE]re-[2xSPACE 
]gel[SPACE]weer[SPACE]'printchr$(1 
4)' 

print" [ SPACE ] achter [ SPACE ] de [ SPACE 
]string[SPACE]te[SPACE]zetten!" 
print"[CRSR-DOWN][2xCRSR-RIGHT](to 
ets) " 

waitl98,1:pokel98,0 

print"[SHIFT-CLR]-[SPACE]voor[SPAC 
E]kleine[SPACE]letters[SPACE]moet[ 
SPACE]u[SPACE]de[SPACE]letters[3xS 
PACE]in[SPACE]de[SPACE]string[SPAC 
E]in[SPACE]reverse" 
print"zetten. 

print"[2xSPACE]als[SPACE]de[SPACE] 
string[SPACE]in[SPACE]de[SPACE]lis 
ting[SPACE]veranderd[3xSPACE]probe 
er[SPACE]dit[SPACE]dan[SPACE]niet[ 
SPACE]te" 

print"[2xSPACE]verbeteren.dit[SPAC 
E]is[SPACE]normaal.het[SPACE]pro-[ 
6xSPACE]gramma[SPACE]werkt[SPACE]w 
el[SPACE]goed!" 

print"[CRSR-DOWN][3xSPACE]bestudee 
r[SPACE]de[SPACE]voorbeelden[SPACE 
]goed[SPACE]en[6xSPACE]u[SPACE]hee 
ft[SPACE]z o[SPACE]door[SPACE]hoe[S 
PACE]het" 


160 

170 


180 


190 

200 


210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

1000 

1010 

1020 

1030 

1040 

1050 

1060 


print"[2xSPACE]werkt!! 
print"[CRSR-DOWN][2xCRSR-RIGHT][SP 
ACE]veel[SPACE]succes!(toets)":wai 
tl98, 1 

input"[SHIFT-CLR]wilt[SPACE]u[SPAC 
E]gekleurde[SPACE]letters(j/n)";ja 
$ 

ifja$="j"thengk=l:goto210 

gk=0:input"welke[SPACE]kleur[SPACE 

]wilt[SPACE]u[SPACE]de[SPACE]lette 

rs(typ[SPACE]code)";kl:poke646,kl 

printchr$(14):poke53280,0:poke5328 

1,0:print"[SHIFT-CLR]" 

forj=688to703:readk:pokej,k:next 

forj=49152to49330:readk:pokej,k:ne 

xt 

data32,188,190,226,172,225,191,251 
datal87,255,161,236,162,254,252,96 
datal69,208,133,4,173,24 
data208,41,2,240,4,169 
data216,133,4,169,0,162 
data3,6,250,42,202,208 
data250,24,101,4,133,4 
datal65,250,133,3,173,14 
data220,41,254,141,14,220 
datal65,1,41,251, 133, 1 
datal69,0,133,250,169, 5 
datal33,2,160,0, 177,3 
datal33,5,230,3,177,3 
datal33,6,230,3, 198,2 
data240,28,162,4,169, 0 
dataö, 6,42,6,6,42 
data6,5,42,6,5,42 
datal64,250,153,48,2,230 
data250,202,208,232,240,210 
datal65,1,9,4,133, 1 
datal73,14,220, 9, 1, 141 
datal4,220,160,0,166, 24 9 
data240,8,169,2 9, 32,210 
data255,202,208,250, 169, 4 
datal33,6,185,48,2,170 
datal89,176,2,133,5,41 
data64,240,5,169, 18,32 
data210,255,165,5,41,191 
data032,210,255,169,146, 32 
data210,255,200,198, 6,208 
data221,169,13,32,210,255 
datal92,16,208,196, 96 
a$=" [4xSPACE]i[4xSPACE]":gosubl020 
a$="[2xSPACE][CTRL-L][CTRL-O][CTRL 
V][CTRL-2][3xSPACE]":gosubl020 
a$="[2xSPACE]ssss[3xSPACE]"iprintc 
hr$(142):gosubl020 

a$="[3xSPACE]MY[4xSPACE]":printchr 
$(14):gosubl020 
a$="[CTRL-0][Fl]":gosubl020 
a$="[SPACE]yeah![3xSPACE]":gosubl0 
20 

rem ruimte voor zelfgemaakte tekst 
print:print"(toets)":pokel98,0:wai 
tl98,1 

pokel98,0:run 

fora=ltolen(a$):poke250,asc(mid$(a 
$,a,1)):poke249,(a-1)*4 
x=x+l:ifx>15thenx=l 
ifgk=lthenpoke646,x 
sys49152:print"[4xCRSR-UP]";:next 
print"[4xCRSR-DOWN]":return 
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Checksum Powertext 


regel 

10 

102 

regel 

350 

193 

regel 

20 

242 

regel 

360 

197 

regel 

30 

6 

regel 

370 

200 

regel 

40 

162 

regel 

380 

252 

regel 

50 

233 

regel 

390 

3 

regel 

60 

5 

regel 

400 

1 

regel 

70 

6 

regel 

410 

93 

regel 

80 

47 

regel 

420 

228 

regel 

90 

127 

regel 

430 

97 

regel 

100 

136 

regel 

440 

243 

regel 

110 

8 

regel 

450 

91 

regel 

120 

96 

regel 

460 

48 

regel 

130 

158 

regel 

470 

148 

regel 

140 

195 

regel 

480 

0 

regel 

145 

126 

regel 

490 

2 

regel 

146 

27 

regel 

500 

2 

regel 

150 

92 

regel 

510 

95 

regel 

160 

138 

regel 

520 

195 

regel 

170 

230 

regel 

530 

146 

regel 

180 

174 

regel 

540 

140 

regel 

190 

236 

regel 

550 

223 

regel 

200 

34 

regel 

560 

46 

regel 

210 

31 

regel 

570 

27 

regel 

220 

187 

regel 

580 

179 

regel 

230 

131 

regel 

590 

219 

regel 

240 

87 

regel 

600 

202 

regel 

250 

98 

regel 

610 

45 

regel 

260 

101 

regel 

620 

16 6 

regel 

270 

250 

regel 

1000 

42 

regel 

280 

44 

regel 

1010 

89 

regel 

290 

243 

regel 

1020 

161 

regel 

300 

237 

regel 

1030 

83 

regel 

310 

92 

regel 

1040 

98 

regel 

320 

130 

regel 

1050 

245 

regel 

regel 

330 

340 

241 

50 

regel 

1060 

233 




Schermtekenen 



Willem Stadhouders uit Terneuzen, de maker van 
schermtekenen, is zeker voor de lezers die het on¬ 
derdeel PRINT-OUT al wat langer volgen geen onbe¬ 
kende. Zij weten ook dat hij erg veel in een relatief 
klein programma kan stoppen. Na het intikken van de 
listing heeft U de beschikking over de volgende mo¬ 
gelijkheden: 

- Met de joystick en het toetsenbord op het scherm 
tekenen (niet in hires maar in gewone karakters). 

- De tekening opslaan op tape (Voor iemand die een 
— beetje verstand van de C 64 heeft zal het geen pro¬ 
bleem zijn dit ook naar disk te laten saven). 

- De opgeslagen tekeningen weer op te halen en ver¬ 
der te bewerken. 

Zeker de kinderen zullen dit programma weten te 
waarderen. Hoewel, tekenen is zowel voor oud als 
jong altijd leuk. 
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10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 


rem *** 
rem *** 
rem *** 
rem *** 


schermtekenen c64 

door wim stadhouders 
** 

uit terneuzen 
forp=49152to49181:reada:pokep,a:ne 
xt 

data32,253,174,32,158 
datal83,142,28,192,32 
data253,174,32,158,183 
datal72,28,192,24,32 
data240,255,32,253,174 
data76,164,170,0,0 
goto300 

print"[SHIFT-CLR]" 
h=20:v=12 
i=127-peek(56320) 


160 if(iandl)=lthenv=v-l: ifv<0thenv=0 
170 if(iand2)=2thenv=v+l:ifv>24thenv=2 
4 

180 if(iand4)=4thenh=h-l: ifh<0thenh=0 
190 if (iand8)=8thenh=h+l:ifh>39thenh=3 
9 

195 ifv=24andh=39thenh=38 
200 ifi>15then250 

210 geta$:ifa$=""then230 

220 x=asc(a$) 

230 sys49152,h,v,chr$(x); 

240 forp=lto500:next:gotol50 
250 openl,1,1,"schermdata" 

260 forp=1024to2023 

270 x=peek(p) 

280 print#l,x:next:closel 

290 gotol50 

300 print"[SHIFT-CLR]met[SPACE]dit[SPA 

CE]programma[SPACE]kunt[SPACE]u[SP 
ACE]een[SPACE]tekening" 

310 print"op[SPACE]het[SPACE]s cherm[SP 

ACE]maken,[SPACE]bewaren[SPACE]en[ 
SPACE]terug" 

320 print"inlezen." 

330 print"daarbij[SPACE]kunt[SPACE]u[S 

PACE]ook[SPACE]de[SPACE]'diapositi 
eve' " 

340 print"karakters[SPACE]gebruiken[SP 

ACE](ctrl9[SPACE]/[SPACE]ctrlO)." 
350 print"druk[SPACE]het[SPACE]gewenst 

e[SPACE]karakter[SPACE]in[SPACE]op 
[SPACE]het" 

360 print"toetsenbord,[SPACE]waarna[SP 

ACE]u[SPACE]met[SPACE]de[SPACE]j oy 
stick" 

370 print"kunt[SPACE]verplaatsen[SPACE 

] (spatie=wissen) . 

380 print"u[SPACE]kunt[SPACE]de[SPACE] 

tekening[SPACE]bewaren[SPACE]op[SP 
ACE]tape;" 

390 print"druk[SPACE]dan[SPACE]eerst[S 

PACE]<record/play>[SPACE]op[SPACE] 
de[SPACE]re-" 

400 print"corder[SPACE]in,[SPACE]en[SP 

ACE]druk[SPACE]dan[SPACE]op[SPACE] 
de[SPACE]aktieknop." 

410 print"de[SPACE]routine[SPACE]voor[ 

SPACE]het[SPACE]ophalen[SPACE]van[ 
SPACE]de[SPACE]teke-"; 

420 print"ning[SPACE]kunt[SPACE]u[SPAC 

E]toepassen[SPACE]in[SPACE]een[SPA 
CE]ander[SPACE]pro-" 

430 print"gramma,[SPACE]zodat[SPACE]u[ 

SPACE]de[SPACE]tekening[SPACE]niet 
[SPACE]in[SPACE]het" 

440 print"programma[SPACE]zelf[SPACE]h 

oeft[SPACE]op[SPACE]te[SPACE]nemen 
?! 

450 print"na[SPACE]het[SPACE]bewaren[S 

PACE]kunt[SPACE]u[SPACE]verder[SPA 
CE]gaan[SPACE]met" 

460 print"de[SPACE]tekening;[SPACE]sto 

ppen[SPACE]kan[SPACE]gewoon[SPACE] 
met" 

470 print"runstop.[2xCRSR-DOWN]" 

480 print"1.[SPACE]starten[SPACE]met[S 

PACE]nieuw[SPACE]scherm" 

490 print"2.[SPACE]scherm[SPACE]ophale 

n [ SPACE]van[SPACE]band" 

500 geta$:ifa$="l"thenl30 
510 ifa$="2"then530 
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rem" [16xSPACE] " 

a$="copy[SPACE]bevei.[SPACE]disk 
b$= M fcopy[SPACE]2.2+" 
c$="diskcopy[SPACE]1.5min" 
d$= M turbo[SPACE]nibbler[SPACE]v2 
e$="quickcopy[SPACE]2.0" 
f$="giantcopy[SPACE]64" 
g$="copy[SPACE]58.5k" 
h$="flash-copy[SPACE]v2.0" 
i$="tape[SPACE]disk[SPACE]copy" 
j$="disk_tape_turbo" 
k$="turbo[SPACE]cruncher" 

1$="turbo[SPACE]nibbler[SPACE]v4 
m$="duplicator[SPACE]vl" 
n$="speedcopy[SPACE]2" 
o$="fast[SPACE]copy[SPACE]64" 
p$="super[SPACE]backup" 
q$="disk-mon[2xSPACE]doc/64" 
r$="thermo[SPACE]disk" 
s $="zoom[SPACE]overal" 
t$="directory[SPACE]sort" 
u$="file[SPACE]scratcher" 
v$="easy[SPACE]disk[SPACE]rename 
w$="snellader[SPACE](sys)" 
x$="turbo[SPACE]arrow" 
y$="abc-turbo[SPACE]v2.0" 
z $="tape[SPACE]turbo" 
al$="disk-snellader" 
a2$="commando's[SPACE]list" 
a3$="exam" 

a4$="data[SPACE]speeder" 

a5$="turbo[SPACE]added" 

a6$="checksum[SPACE]info" 

a7$="checksum[SPACE]dosier" 

a8$="mr-nibbler" 

a9$="new[SPACE]mr-nibbler" 

a0$="seq[SPACE]file[SPACE]reader 


goto500 

openl, 1,0,"schermdata" 
forp=1024to2023 

input#1,xrpokep,x:pokep+54272,14 
ext:closel:gotol40 


• 


■ xx: ' 

mmmmm 

mm 

x XÖSÖ 

'■ :: x' : " x : : x : x ;x : x : x : : :: : 


■ mxsx 
rnmrnm. 
mmmmmm 
xxxxxxxx: 
mm 

: x-x' -1 ' 'x:-,V'.:,; x : H 

■■lil!! 

mmmmmm 

W&MmgSS&gUlM 


s'X'Xiï'f 

«XSxSXXS: 

mmM 


EINDE LISTING schermtek 


Ililllllll 

v.; v,w.x. v.- v.;.;.;.;.;.; 

x x-x :-x x xx::: x-: 

-v. 

vlvXv!v!v!vXyX - !vXv!vv 




mm 


v.vX; 




.xx-'-:-:;--:':; 


'ft¥S:¥ft¥i 


>XvX<vX:Xv/XvX::;x 


rem scherm layout 

poke 53280,4:poke53281, 7 

print"[SHIFT-CLR]":print"[CTRL-9][ 

CTRL-1][lOxSPACE]tip[SPACE]toets[S 

PACE]keuze[SPACE]menu[lOxSPACE]" 


Deze fraaie afkorting staat voor Disk Keuze Menu. 
W. van Laren uit Delft vond het maar niks dat een 
diskette met veel kleine programma’s zo omslachtig 
is. Directory bekijken, en dan pas het programma la¬ 
den. Met dit programma kan het veel makkelijker, 
éénmalig de namen in dit programma zetten en na 
het runnen kunt U een keuze maken en het laden ge¬ 
beurt door simpelweg de daarbij behorende toets in 
te drukken. Het programma moet dus wel voor elke 
diskette worden aangepast. 


print" [ SPACE ] a [ SPACE ] 

s[SPACE]";s$ 

print" [ SPACE ] b [ SPACE ] 

t [SPACE] " ; t$ 

print"[SPACE]c[SPACE] 

u[SPACE]";u$ 

print"[SPACE]d[SPACE] 

v[ SPACE]";v$ 

print"[SPACE]e[SPACE] 

w[SPACE]";w$ 

print"[SPACE]f[SPACE] 

x[SPACE]";x$ 

print"[SPACE]g[SPACE] 

y[SPACE]";y$ 

print"[SPACE]h[SPACE] 

z[SPACE]";z$ 

print"[SPACE]i[SPACE] 

1[SPACE]";al$ 

print"[SPACE]j[SPACE] 

2 [SPACE] " ; a2$ 

print" [ SPACE ] k [ SPACE ] 

3 [SPACE] " ; a3$ 
print" [SPACE] 1 [SPACE] 
4[SPACE]";a4$ 
print"[SPACE]m[SPACE] 
5[SPACE]";a5$ 

print"[SPACE]n[SPACE] 


[SPACE] 


* 


mm 


x - 

:x-:::x : x:v:-:v::::::: : : : : : x : : : :v:':v 

xvx-r-X'Wxwx^X'Xw^x-Xv 


X X 




illvx'xxx 


-y.-yyy.-y.' • 

wmmmmm. 

vmvmmmmmm 
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mmmmmmk 
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■lliil x illi 

fmmmrnmmmimm 


mmtm 
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790 


6[SPACE]";a6$ 

print"[SPACE]0[SPACE]";o$,"[SPACE] 
7[SPACE]";a7$ 

800 print"[SPACE]p[SPACE]";p$,"[SPACE] 
8[SPACE]";a8$ 

810 print"[SPACE]q[SPACE]";q$,"[SPACE] 
9[SPACE]";a9$ 

820 print"[SPACE]r[SPACE]";r$,"[SPACE] 
0[SPACE]";a0$ 

830 : 

840 rem keuze toets uitlezen 
850 : 


860 get gg$ :if gg$=""then 860 


870 

if 

gg$="a"then 

xx$=a$ 

880 

if 

gg$="b"then 

xx$=b$ 

890 

if 

gg$="c"then 

xx$=c$ 

900 

if 

gg$="d"then 

xx$=d$ 

910 

if 

gg$="e"then 

xx$=e$ 

920 

if 

gg$="f"then 

xx$=f$ 

930 

if 

gg$="g"then 

xx$=g$ 

940 

if 

gg$="h"then 

xx$=h$ 

950 

if 

gg$="i"then 

xx$=i$:goto 1400 

960 

if 

gg$="j"then 

xx$=j$ 

970 

if 

gg$= n k M then 

xx$=k$ 

980 

if 

gg$="l"then 

xx$=l$ 

990 

if 

gg$="m"then 

xx$=m$ 

1000 

if 

gg$="n"then 

xx$=n$ 

1010 

if 

gg$="o"then 

xx$=o$ 

1020 

if 

gg$="p"then 

xx$=p$ 

1030 

if 

gg$="q"then 

xx$=q$ 

1040 

if 

gg$="r"then 

xx$=r$ 

1050 

if 

gg$="s"then 

xx$=s$ 

1060 

if 

gg$="t"then 

xx$=t$ 

1070 

if 

gg$="u"then 

xx$=u$ 

1080 

if 

gg$="v"then 

xx$=v$ 

1090 

if 

gg$="w"then 

xx$=w$ 

1100 

if 

gg$="x"then 

xx$=x$ 

1110 

if 

gg$="y"then 

xx$=y$ 

1120 

if 

gg$="z"then 

xx$=z$ 

1130 

if 

gg$="l"then 

xx$=al$ 

1140 

if 

gg$="2"then 

xx$=a2$ 

1150 

if 

gg$="3"then 

xx$=a3$ 

1160 

if 

gg$="4"then 

xx$=a4$ 

1170 

if 

gg$="5"then 

xx$=a5$ 

1180 

if 

gg$="6"then 

xx$=a6$ 

1190 

if 

gg$="7"then 

xx$=a7$ 

1200 

if 

gg$ = " 8"then 

xx$=a8$ 

1210 

if 

gg$="9"then 

xx$=a9$ 

1220 

if 

gg$="0"then 

xx$=a0$:goto 1400 

1230 

• 

• 



1240 

if 

xx$="" then 

230 


1250 : 

1260 print"[SHIFT-CLR][8xCRSR-DOWN][4xC 
RSR-RIGHT]now[SPACE]loading[2xSPAC 
E] "; "' [SPACE]";xx$;"[SPACE]'" 


1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 


load xx$,8,1 
• 

rem als een programma zich niet 
rem via boven staand menu laat 
rem opstarten dan lukt het toch 
rem zeker wel met de regels hier 
rem onder , maar dan moet je het 
rem programma wel even sturen 
rem naar regel 1400 
rem bv: 

rem if gg$="a"then xx$=a$:gotol400 
* 

print"[SHIFT-CLR][3xCRSR-DOWN][SPA 


CE]load";chr$(34);xx$;chr$(34);", 8 
, 1[SPACE] [4xCRSR-DOWN]" 

1410 print"[SPACE]run[SPACE][9xCRSR-DOW 
N][13xCRSR-RIGHT][CTRL-4]druk[SPAC 
E]return[SPACE]![HOME]":end 

** EINDE LISTING disk.k.m ** 


Checksum Disk.K.M 


regel 

100 

165 

regel 

790 

57 

regel 

110 

27 

regel 

800 

92 

regel 

120 

76 

regel 

810 

96 

regel 

130 

50 

regel 

820 

80 

regel 

140 

57 

regel 

830 

58 

regel 

150 

153 

regel 

840 

18 

regel 

160 

165 

regel 

850 

58 

regel 

170 

58 

regel 

860 

5 

regel 

180 

150 

regel 

870 

6 

regel 

190 

211 

regel 

880 

8 

regel 

200 

200 

regel 

890 

10 

regel 

210 

179 

regel 

900 

12 

regel 

220 

211 

regel 

910 

14 

regel 

230 

90 

regel 

920 

16 

regel 

240 

154 

regel 

930 

18 

regel 

250 

59 

regel 

940 

20 

regel 

260 

112 

regel 

950 

158 

regel 

270 

167 

regel 

960 

24 

regel 

280 

120 

regel 

970 

26 

regel 

290 

183 

regel 

980 

28 

regel 

300 

30 

regel 

990 

30 

regel 

310 

243 

regel 

1000 

32 

regel 

320 

3 

regel 

1010 

34 

regel 

330 

75 

regel 

1020 

36 

regel 

340 

122 

regel 

1030 

38 

regel 

350 

229 

regel 

1040 

40 

regel 

360 

70 

regel 

1050 

42 

regel 

370 

60 

regel 

1060 

44 

regel 

380 

175 

regel 

1070 

46 

regel 

390 

28 

regel 

1080 

48 

regel 

400 

102 

regel 

1090 

50 

regel 

410 

123 

regel 

1100 

52 

regel 

420 

107 

regel 

1110 

54 

regel 

430 

46 

regel 

1120 

56 

regel 

440 

133 

regel 

1130 

39 

regel 

450 

91 

regel 

1140 

41 

regel 

460 

137 

regel 

1150 

43 

regel 

470 

216 

regel 

1160 

45 

regel 

480 

42 

regel 

1170 

47 

regel 

490 

126 

regel 

1180 

49 

regel 

500 

145 

regel 

1190 

51 

regel 

510 

185 

regel 

1200 

53 

regel 

520 

177 

regel 

1210 

55 

regel 

530 

110 

regel 

1220 

173 

regel 

540 

16 

regel 

1230 

58 

regel 

550 

171 

regel 

1240 

145 

regel 

560 

93 

regel 

1250 

58 

regel 

570 

72 

regel 

1260 

185 

regel 

580 

71 

regel 

1270 

58 

regel 

590 

58 

regel 

1280 

40 

regel 

610 

47 

regel 

1290 

58 

regel 

620 

48 

regel 

1300 

75 

regel 

630 

94 

regel 

1310 

251 

regel 

640 

58 

regel 

1320 

113 

regel 

650 

51 

regel 

1330 

81 

regel 

660 

55 

regel 

1340 

204 

regel 

670 

59 

regel 

1350 

44 

regel 

680 

63 

regel 

1360 

229 

regel 

690 

67 

regel 

1370 

97 

regel 

700 

71 

regel 

1380 

111 

regel 

710 

75 

regel 

1390 

58 

regel 

720 

79 

regel 

1400 

202 

regel 

730 

64 

regel 

1410 

134 

regel 

740 

68 




regel 

750 

72 




regel 

760 

76 




regel 

770 

80 




regel 

780 

84 
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Jungle 


360 


Ditmaal eens een Nederlands-talig avonturenspel. De 370 
bedoeling is door middel van korte, eenvoudige op- 380 
drachten de oplossing te vinden. De maker is Joris 390 
van Eijden uit Zeist. 

10 rem*** by the adventure giant '87* 420 


100 


110 

120 


130 


140 


150 


160 

170 


180 


190 

200 


210 

220 


230 

240 


250 

260 


270 

280 


290 

300 

310 

320 


330 


340 


350 


print”[SHIFT-CLR][CTRL-2]rprintc 
hr$(14):poke53280,0:poke53281,0:go 
subl330:print”[SHIFT-CLR]” 
print”[38xCOM-T]”:print"Plaats:[3x 
SPACE]";r$(pl,pc) 

iffa=landzz=lthenprint"Je[SPACE]fa 
kkel[SPACE]waait[SPACE]uit":z z=0 

print"Je[SPACE]ziet.”: ge=0 :cs= 

1: forn=lto24 : ifp (n, 1) Oplorp (n, 2) < 
>pcthen70 

iff(n)=lthenprinto$(n):cs=l:ifn>10 

andn/2<>int(n/2)thenge=n 

nextn:if cs=0thenprint "Geen[SPACE]v 

oorwerpen" 

ifr$(pl,pc)="jungle”andf(25) =0then 
170 

print"Zichtbare[SPACE]uitgangen:[S 
PACE]": ve=0 :forn=lto4 
if(mid$(e$(pl,pc),n,1)="/"andf(25) 
=0)or mid$(e$(pl,pc),n,1)="[SPACE] 
"thenn=4 


ifmid$(e$(pl,pc),n,1)="/"thenn=n+l 
ifmid$(e$(pl,pc),n,1)="n"thenprint 
"Noord":ve=l 

ifmid$(e$(pl,pc),n,1)="o"thenprint 
"Oost":ve=l 

ifmid$(e$(pl,pc),n,1)="z"thenprint 
"Zuid":ve=l 

ifmid$(e$(pl,pc),n,1)="w"thenprint 
"West":ve=l 

nextn: ifve=0thenprint "geen" 

a$="":print"Wat[SPACE]wil[SPACE]je 

.:inputa$:ifa$="stop"then440 

ifa$=""thenprint"[CRSR-UP]";:gotol 

70 

ifa$="bezit"thengosubl490:gotol70 

q=l:d$=a$:l=len(a$):forn=ltol::ifm 

id$ (a$,n, 1)0" [SPACE] "then220 

d$=left$(a$,n-1):q=n:n=l 

nextn : vg=0 : f orn=ltoll: ifd$Ov$ (n) t 

hen260 

ifd$<>"dood"then250 

ifmid$(a$,q+1,3)="met"thend$=d$+"m 

et":q=q+4 

vg=n:n=12 

nextn:ifvg=Othenprint"Ik[SPACE]wee 
t[SPACE]niet[SPACE]hoe[SPACE]dat[S 
PACE]moet.":gotol70 
ifvg=lthen330 

ifq=lthenprint"Zeg[SPACE]het[SPACE 
]nog[SPACE]eens.[SPACE]";d$;"[SPAC 
E]wat?":gotol70 
w$=right$(a$,1-q) 

kw=0 : forn=lto30 : ifw$Oo$ (n) then320 
kw=n:n=30 

nextn: ifkw=0 thenprint"Dat[SPACE]ga 
at[SPACE]niet":gotol70 
onvggosub450,490,580,640,700,740,7 
90,830,870,900,940 

ifr$(pl,pc)="drijfzand"orr$(pl,pc) 
="moeras"then410 
ifpl=landpc=lthen430 


1)="o"thenprint 


1)="z"thenprint 


1)="w"thenprint 




430 

440 


450 


460 


470 


480 

490 


500 


510 

520 


530 


540 

550 

560 

570 


580 


590 


600 


610 


620 


630 

640 


650 

660 

670 


680 


690 


700 


710 


iff(20)<>3andr$(pl,pc)="jungle"the 
n430 

ifeuthen420 

iff(25)=lthenf(25)=2:goto400 
iff(25)=2thenf(25)=0 
goto30 

printr$(pl,pc):goto440 

print"Je[SPACE]bent[SPACE]opgegete 

n.":goto440 

print"Verdwaald.verhongerd": 
print"Pech[SPACE]gehad.[SPACE]Je[S 
PACE]bent[SPACE]dood.":print"Start 
[SPACE]opnieuw[SPACE]met[SPACE]'ru 
n'.":end 

ifpl=2andpc=8thene$(2,8)="nz":retu 


ifpl=3andpc=6thene$(3,6)="ow":retu 


ifpl=2andpc=4andzz=0thenf(2)=1:zz= 
1:return 

ifkw<25thenreturn 

g$=o$(kw):forn=lto4:x$=mid$(e$(pl, 
pc),n,1) 

ifx$="/"andf(25) =0thenpr int"Ik[SPA 
CE]zie[SPACE]geen[SPACE]uitgang!": 
return 

ifx$Og$then560 

ifpc=5andpl=6andf(27) =0thenprint "D 
eze[SPACE]deur[SPACE]is[SPACE]dich 
t.":return 

ifpc=5andpl=4andf(26) =0thenprint "D 
eze[SPACE]deur[SPACE]is[SPACE]dich 
t.":return 

pc=pc+(g$="w")-(g$="o") 
pl=pl+(g$="n")-(g$="z") 
n=4:nextn:return 

nextn:print"Ik[SPACE]kan[SPACE]daa 
r[SPACE]niet[SPACE]heen.":return 
ifkw>22thenprint"Dat[SPACE]is[SPAC 
E] onzin MM": return 
ifkw>8andkw/2<>int(kw/2)thenprint" 
Je[SPACE]kunt[SPACE]een[SPACE]";w$ 
;"[SPACE]niet[SPACE]pakken":return 
ifkw=lthenprint"Je[SPACE]kunt[SPAC 
E]een[SPACE]";w$;"[SPACE]niet[SPAC 
E]pakken":return 

iff(kw)=3thenprint"Je[SPACE]hebt[S 
PACE]een[SPACE]";w$;"[SPACE]al!":r 
eturn 

ifplOp (kw, 1) orpcOp (kw, 2) orf (kw) = 
Othenprint"Dat[SPACE]zie[SPACE]ik[ 
SPACE]niet.":return 
f(kw)=3:return 

iff(kw)<>3thenprint"Je[SPACE]hebt[ 
SPACE]helemaal[SPACE]geen[SPACE]"; 
w$:return 

ifge>12 andkw> 0 andkw< 91hen 6 8 0 

ifge=llandkw=10then680 

print"Het[SPACE]lukt[SPACE]niet":r 

eturn 

f(ge)=0:f(ge+1)=3:o$(kw)="":print" 
De[SPACE]";o$(ge);"[SPACE]zegt[SPA 
CE]'dank[SPACE]je[SPACE]wel'." 
print"Hij[SPACE]geeft[SPACE]je[SPA 
CE]een[SPACE]";o$(ge+1);"[SPACE]en 
[SPACE]gaat[SPACE]weg.":return 
ifpl04orpc<>5thenprint "Daar [SPACE 
]heb[SPACE]j e[SPACE]niet s[SPACE]aa 
n.":return 

ifkw<>14thenprintw$;"[SPACE]zeggen 
[SPACE]heeft[SPACE]geen[SPACE]zin" 


■mmmmmmm 

:■ • ■!) XO •!•! XX 

mmmmm 

mÊ i 


llilllllll 


iv:-vXv;vXv 


;????????:??????????:?!????????? 
???;??? ????:?:?:??: ????:????????? 




- m 


mmmmmmm 
■?:>.:?:? . I ?? 

lilllllill 

: : x : ?xxxx : : : : x : x : :: ,'x x'' 


xxfxxxxïËixxx:: 

xx : "x'x x-x-xxxx: x : : : x : xx : >> 

V.V •- •- V.* V.V • 

:«ö:s?:?:??:ö-?:?«:?¥ö:?s 

mmmmmmm 

.v.v •. .v.\ .• . 

x-x x-x? •: x-x x-x x-x: 
:• 

-.V.V.V.V v.-.v, -• .V.V.' v.v.v.. 


I I I ■■ 

; X ; X. ; 
•• XX • 


.y V .yy V. yv.y v.v... v.yv.y 

v.v.v.yv.v.v.y.v.v.v.v.v.v.;.v 


mmmmmmm. 










:*:o:W:vX':ö:v>x wMWtó? 
xixxxxxx-:: : x-x-:-x xxxxxxx 


mmmmmm.mm 


■mm 

mmmmm 


vX;X vXvXvXwXviy 

,v.v.v.w/.wX 

yXy’yXvXXXyvy'.vXy-XyyyXy 

:• 

■: ?!!?'? ? :: ?:?!: ?! 


::! :: ::! : ; i :: !:! : : ? : :!"!! ’ 


: : :: : • 


•: : :• •: 

:XXX:XX?XX? 

^xVx‘x 

x •• ||||| 


l»ÜM 

WMwmMMmz 


\<oyyyyyyyyyyyymvsyyyy.\<< 

v.;.;.x.v. v.v.;.;.;. 

: :• :• : :• •: :• • •: :• • •: :• :• • 


y. .; 

: :: : x ; x :? ? •: 

Xy X; : !; y X; ! !• y Xyyyyyyyyyy' 


xx-xv?: > v:-xy; : xx 

;?.:????5?;?x:?: 

llilii 

aifeisssÊa 

IIP?? 

.v.'vXyy.vXy. Xy X-.y /Xy /.yy ;• 

■B 


mMm 


mmmmmmm 

•.VjiV.V.V.V.ViVi’.VnV.V.'iV.V.' 




?:?????????? 

9më 


mmm 

; 


W&m 

lil 


;yX-yXy;xXx: |: : x. 

>x*:öx< vXy vX vXy : :.x- 















720 




W 

■ f ■ 

Xy^vX-:^ 


Ja 


11111111 


. 

Hl 








Ü1 

Ui 


§11 


«4! 




730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 


:return 

iff (kw)<>3thenprint"Dat[SPACE]mag[ 
SPACE]je[SPACE]niet[SPACE]opeten." 

:return 

f(2 6)=1:print"In[SPACE]de[SPACE]oo 
steiljke[SPACE]muur[SPACE]gaat[SPA 
CE]een[SPACE]deur[SPACE]open.":return 
ifpc<>5orf(25)=0then780 
ifpl=6andf(2)=3thenf(27)=1:print"D 
e[SPACE]deur[SPACE]is[SPACE]open." 

:return 

ifpl=6andf(2)<>3thenprint"Je[SPACE 
]hebt[SPACE]de[SPACE]sleutel[SPACE 
]niet!":return 

ifpl=4andf (27) Olthenprint" Je [SPAC 
E]hebt[SPACE]de[SPACE]spreuk[SPACE 
]niet[SPACE]gezegd.":return 
print"Dat[SPACE]kan[SPACE]ik[SPACE 
]niet":return 

ifkw=10andf(10)=3thenf(10)=0:o$(10 
)__»»": p r i n t" Yum [ SPACE ] yum" : return 
ifkw=21andge=21thenf(22)=1:f(21)=0 
:print"Burp![SPACE]Wat[SPACE]hebbe 
n[SPACE]we[SPACE]hier!" 
ifkw<>21thenprint"Yuk!" 
return 

ifkw<>22thenprint"Je[SPACE]kunt[SP 
ACE]een[SPACE]";w$;"[SPACE]niet[SP 
ACE]aansteken":return 
iff(8)<>3thenprint"Je[SPACE]moet[S 
PACE]lucifers[SPACE]hebben.":return 
iff(22)<>3thenprint"Je[SPACE]moet[ 
SPACE]de[SPACE]fakkel[SPACE]hebben 
.":return 

f(2 5)=1:fa=l:print"Hij[SPACE]brand 
t[SPACE]-[SPACE]maar[SPACE]niet[SP 
ACE]lang.":return 

iff(20)<>3thenprint"Geen[SPACE]bij 
l=niet[SPACE]kappen.":return 
ifkwOlthenprint" Je [SPACE] kunt [SPA 
CE] een [SPACE] ";w$; " [SPACE] niet [SPA 
CE]hakken":return 

f(2 5)=1:print"Nu[SPACE]kun[SPACE]j 
e[SPACE]wat[SPACE]zien.":return 
ifpl<>8or(pc<>6andpc<>7)then930 
iff(7)<>3thenprint"Je[SPACE]moet[S 
PACE]een[SPACE]boot[SPACE]hebben." 

:return 

print"Veilig[SPACE]overgestoken.": 
pc=7+(pc=7):return 

print"Dat[SPACE]kan[SPACE]ik[SPACE 
]niet":return 

ifkwO3andkw<>12andkwO20thenprint 
"Daarmee [SPACE] kun [SPACE] je [SPACE] 
niet[SPACE]doden!":return 
if ge=0 1henprint"Dood[SPACE]wat ?[SP 
ACE]wie ?":return 

ifge=llorge=13orge=17orge=19thenl0 

00 

ifge=15andkw=12thengotol010 
ifint(rnd(0)*100)<30thenprint"Mis! 

":eu=l:return 

print"Je[SPACE]hebt[SPACE]hem[SPAC 
E]gedood!":f(ge)=0:return 
f(ge)=0:print"Een[SPACE]beetje[SPA 
CE]onnodig,[SPACE]maar[SPACE]hij[S 
PACE]is[SPACE]doodreturn 
print"Hij[SPACE]is[SPACE]dood[SPAC 
E]en[SPACE]je[SPACE]hebt[SPACE]de[ 
SPACE]verloren[SPACE]kroon[SPACE]" 
print"van[SPACE]Umbama jini[SPACE]g 


evonden!!!!!!!!":print"Gefelicitee 
rd![CTRL-1]":end 

1030 dimr$(8,8):dime$(8,8):dimo$(30):di 
mp(27, 2) :dimv$(11):dimf(27) 

1040 forn=lto8:fort=lto8:readr$(n,t),e$ 
(n,t):nextt:nextn 

1050 datawoestijn,,woestijn,wz,open ple 
k,oz,jungle,/owz 

1060 datamoeras,,jungle,/owz,vlakte,wo, 
lage heuvel,wz 

1070 datawoestijn,no,woestijn,wno,vlakt 
e,nzw,ruine,no 

1080 datajungle,/now,rotswand,won,rotsp 
ad,wz,heuvelhelling,n/z 
1090 dataport bata,oz,oude straat,ozw,s 
tadsrand,nzw,doorgang,/onz 
1100 datatrap,/ow,grot,o/w,rotspad,nzw, 
hut, n 

1110 datastrand,noz,duinen,nzw,moeras,, 
geheime nis,/no 

1120 datatempelruimte,/zwo,heilige der 
heiligen,w,rotspunt,onz,moeras, 
1130 datadrijfzand,,vlakte,nozw,jungle, 
/now,plantage,wz 

1140 datatempelportaal,z/on,priesterkam 
er,/w,rotspad,noz,rotsrichel,nzw 
1150 datastrand,noz,dorp ubimbi,nozw,wi 
nkel,wz,jungle,/noz 

1160 dataopen plek,/ow,open plek,wo,ber 
g,nzw,bergpas,nz 

1170 datastrand,nz,straat,nz,erf,n,jung 
le,/noz 

1180 datavlakte,ozw,meer,ow,groot nest, 
now,jungle,/wn 

1190 datajungle,/no,dorpsgrens,now,vlak 
te,ow,vlakte,now 

1200 datajungle,/now,westelijke oever,w 
,oostelijke oever,no,dorp weetu,w 
1210 forn=lto30:reado$(n):ifn<=27thenre 
adp (n, 1) , p (n, 2) , f (n) 

1220 nextn 

1230 datajungle,0,0,1,sleutel, 2,4,0, gew 
eer,3,1,1,kraal,7,2,1,jas,3,3,1 
1240 datagoudklomp,3,1,1,boot,4,1,1,luc 
ifersdoos,3,2,1,rivier,8,6,1 
1250 databanaan,5,4,1,gorilla, 7,7,1, sto 
k, 7,7,0 

1260 datakluizenaar,3,8,1,spreuk, 3,8,0, 
slang,4,6,1,kroon,4,6,0 
1270 datamedicijnman,6,2,1,toverdrank,6 
,2,0,winkelier,6,3,1,bijl,6,3,0 
1280 datakannibaal,8,8,1,fakkel,8,8,0,1 
eeuw,6,6,1,deur,6,5,1 
12 90 datah,,,0,1,,,0,n,, , 5, o, z, w 
1300 forn=ltoll:readv$(n):nextn 
1310 datakijk,ga,pak,geef,zeg,open,eet, 
ontsteek,kap,kruis, dood 
1320 pl=3:pc=l: eu=0 :return 
1330 print"[13xCRSR-RIGHT]***JUNGLE***" 

:printchr$(8) 

1340 print"[CRSR-RIGHT]Diep[SPACE]in[SP 
ACE]donker[SPACE]Afrika,[SPACE]" 
1350 print"[CRSR-RIGHT]vlak[SPACE]bij[S 
PACE]de[SPACE]evenaar,[SPACE]ligt[ 
SPACE]een[SPACE]verborgen[SPACE]te 
mpel." 

1360 print"[CRSR-RIGHT]Ergens[SPACE]in[ 
SPACE]die[SPACE]tempel[SPACE]ligt[ 
SPACE]de[SPACE]eeuwenoude" 

1370 print"[CRSR-RIGHT]kroon[SPACE]van[ 
SPACE]de[SPACE]keizer[SPACE]van[SP 
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ACE]ümbama jini." 

1380 print"[CRSR-RIGHT]Eeuwen[SPACE]gel 
eden[SPACE]strekte[SPACE]het[SPACE 
]keizerrijk[3xSPACE]van[SPACE]Umba 
ma jini[SPACE]zich[SPACE]uit[SPACE]" 

1390 print"[CRSR-RIGHT]van[SPACE]kust[S 
PACE]tot[SPACE]kust." 

1400 print"[CRSR-RIGHT][CRSR-DOWN]De[SP 
ACE]legende[SPACE]zegt[SPACE]dat[S 
PACE]degene[SPACE]die[SPACE]de[SPA 
CE]ver-[2xSPACE]loren[SPACE]kroon[ 
SPACE]vindt," 

1410 print"[CRSR-RIGHT]het[SPACE]recht[ 
SPACE]heeft[SPACE]dat[SPACE]grote[ 
SPACE]keizerrijk[4xSPACE]met[SPACE 
]al[SPACE]zijn[SPACE]" 

1420 print"[CRSR-RIGHT]rijkdommen[SPACE 
]voor[SPACE]zichzelf[SPACE]op[SPAC 
E]te[SPACE]eisen." 

1430 print:print"[CRSR-RIGHT]Werkwoorde 

n: " 

1440 print"[CRSR-RIGHT]kijk-ga-pak-geef 
-zeg-open-eet-bezit" 

1450 print"[CRSR-RIGHT]ontsteek-kap-kru 
is-dood(met)" 

1460 print"[SPACE]Gebruik[SPACE]bij[SPA 
CE]ga[SPACE]alleen[SPACE]n, o,z,w": 
print"[CRSR-RIGHT]Druk[SPACE]op[SP 
ACE]een[SPACE]toets":gosubl030 

1470 getb$:ifb$=""thenl470 

1480 return 

1490 fort=lto27:iff(t)=3thenprinto$(t) 

1500 nextt:return 


Bowling 


Roland van der Klippe uit Lemelerveld is de maker 
van het Bowlingspel. De bedoeling is de kegels om te 
gooien, de bal beweegt zich van boven naar bene¬ 
den. De bedoeling is om op het juiste moment de 
spatiebalk in te drukken. Een verdere uitleg wordt er 
aan het begin van het spel gegeven. 


rem *********************** 
rem * bowling * 

rem * (c) rolosoft 1987 * 

rem *********************** 
poke53280,0:poke53281,0:poke646,1: 
printchr$(142) 

print"[SHIFT-CLR][12xSPACE]bowling 
!":print:print:printtab(8)"informa 
tie[2xSPACE][[CTRL-9] j/n[CTRL-0] ]" 
geta$:ifa$=""then7 
ifa$="j"then2300 
ifa$<>"n"then7 

1(1)=1193:1(2)=1273:1(3)=1353:c$(1 
)="[HOME][llxCRSR-DOWN][8xCRSR-RIG 
HT] " 

c$(2)=c$(1)+"[13xCRSR-RIGHT]":c$(3 
)=c$(2)+"[13xCRSR-RIGHT]":c$=c$(1) 
bo=53280:sc=53281:co=54272:sc(1)=1 
5:sc(2)=0:sc(3)=7:bo(1)=13:bo(2)=2 
bo(3)=9 

fort=cotoco+2 4:poket,0:next:pokeco 
+24,15:pokeco+5,17:pokeco+6,241:po 
keco,30 
pokeco+1,10 

pokebo,0:poke sc,0:print"[SHIFT-CL 
R][CTRL-2]"c$"[5xCRSR-UP][CRSR-RIG 
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180 

182 


183 

184 
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HT][CTRL-9]bowling [CTRL-0] [2xSPACE 
](c)[SPACE]rolosoft" 
print"[5xCRSR-DOWN][9xCRSR-RIGHT]h 
oeveel[SPACE]spelers[SPACE][CTRL-9 
] (1-3) [CTRL-0] " 

geta$:a=val(a$):ifa<lora>3thenll3 
x$="naam":if a=l then x$="naam" 
print"[SHIFT-CLR][3xCRSR-DOWN][4xC 
RSR-RIGHT]typ[SPACE]jouw[SPACE]"x$ 
"[SPACE]in" 
forx=ltoa 

print"[CRSR-DOWN][5xCRSR-RIGHT][CT 
RL 9]speler [CTRL-0] "x":"; 
inputa$(x) 

a$(x)=left$(a$(x),6):next 
print"[SHIFT-CLR][CRSR-DOWN][8xCRS 
R-RIGHT][CTRL-9][CTRL-7][SPACE]1[S 
PACE]2[SPACE]3[SPACE]4[SPACE]5[SPA 
CE]6[SPACE]7[SPACE]8[SPACE]9[SPACE 
]10[2xSPACE] [CTRL-0] [2xSPACE][CTRL 
2][SPACE]":print"[9xCRSR-RIGHT]"; 
forx=ltol0 :print"[CTRL-9]1 [CTRL-0] 
2";:next:print"[CTRL-9]3 [CTRL-0] " 
printtab(8)"[CTRL-7][SPACE]DDDDDDD 
DDDDDDDDDDDDDD":printtab(9)"[CRSR- 
DOWN] DDDDDDDDDDDDDDDDDDDDD" 
on-(a=l)gotol38 

printtab(8)"[SPACE][CRSR-DOWN]DDDD 
DDDDDDDDDDDDDDDDD":on-(a=2)gotol38 
printtab(8)"[SPACE][CRSR-DOWN]DDDD 
DDDDDDDDDDDDDDDDD 

printleft$(c$,12)+"[SPACE]"+a$(1)" 


ifa>lthenprinttab(14)t"[CRSR-UP]"+ 
a$ (2) " : " 

ifa>2thenprinttab(27)"[CRSR-UP]"+a 
$(3)" : " 

printleft$(c$,12)"[2xCRSR-DOWN][CT 
RL 7]CCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCC" 

print"[9xCRSR-DOWN]CCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCC" 
forq=ltol0 

forz9=ltoa:pokesc,sc(z9) :pokebo, bo 
(z9) 

forx=ltol0 :readv:pokev, 81:pokev+co 
,6:next:restore 
j=0:g=0 

gosub430:gosub550:p=l(z9):gosublOO 

0 :1 (z 9) =p 

gosubl200 

on - (1(z9)/2=int(1(z9)/2))gotol69 
if(peek(1(z9)-1)=47andq=10) =0thenl 
95 

printleft$(c$,12)+"[7xCRSR-DOWN]" + 
a$(z9)+",[SPACE]probeer[SPACE]nog[ 
SPACE]1[SPACE]keer!" 
forx=lto3000:next 

printleft$(c$,12)+"[7xCRSR-DOWN]"+ 
"[38xSPACE]" 
print"[13xSPACE]" 

forx=ltol0 :readv:pokev,81:pokev+co 
, 6:next:restore 

j=0:gosub430:gosub550:t(z9)=t(z9)+ 
j:printc$(z9);t(z9) 
k=j+48:ifj+peek(1(z9)-1)-224=10the 
nk=47 

ifk=58thenk=152 

pokel(z9), k:pokel(z9)+co,4:goto225 
u=0:if(peek(1(z9)-2)=152andq=10)=0 
then225 
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214 
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460 
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554 
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1100 
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printleft$(c$,12)+"[7xCRSR-DOWN]"+ 
a$ (z9)+", [SPACE]probeer[SPACE]nog[ 
SPACE]2[SPACE]keer!" 
forx=lto3000:next 

printleft$(c$,12)+"[7xCRSR-DOWN]"+ 
"[38xSPACE]" 

I(z9)=l(z9)-1 

f orx=ltol0 :readv:pokev,81:pokev+co 
,6:next:restore 

j=0:gosub430:gosub550:t(z9)=t(z9)+ 
j:printc$(z9);t(z9) 
k=j+176:ifk=186thenk=152 
pokel (z9) , k :pokel (z9) +co, 4 :1 (z9) =1 
(z9)+1 

ifpeek(1(z9)-1)=152thenforx=ltol0: 
readv:pokev,81:pokev+co,6:next:res 
tore 

u=u+l:onugoto209, 225 
nextz9:nextq 
goto882 
n=1827:i=40 

poken,32:n=n+i:ifn<1624orn>1868the 


ni=-i 


poken+co,-(peek(sc)=240):poken,81: 

geta$:on-(a$="")goto440:return 

n=n+l:geta$ 

ifpeek(n)<>81then595 

q2=n:gosub610 

pokeco+4,17:poken-l,32:poken+co, -( 
peek(sc)=240):poken,81:pokeco+4,16 
forw=lto3 

ifpeek(n-39*w)=81thenq2=n-39*w:gos 
ub610 

ifpeek(n+41*w)=81thenq2=n+41*w:gos 

ub610 

next 

pokeco+4,17:h=h+l:poken-l,32:poken 
+co,-(peek(sc)=240):poken,81:pokec 
o+4,16 

if h=36 then 612 
goto550 

j=j+1:pokeco+4,33:pokeq2,32:fort=l 
to50:next:pokeco+4,32:return 
h=Q:poken,32:poken-l,32:return 
printc$;"[3xCRSR-DOWN][CTRL-5]tota 
al[SPACE]score[CRSR-DOWN][CTRL-7]" 
print"[9xCRSR-RIGHT]"a$(1);t(1):if 
a>lthenprint"[CRSR-DOWN][9xCRSR-RI 
GHT]"a$(2);t(2) 

ifa=3thenprint"[CRSR-DOWN][9xCRSR- 
RIGHT]";a$(3);t(3) 

print”[CRSR-DOWN][7xCRSR-RIGHT]nog 
[SPACE]een[SPACE]keer[SPACE](j/n)? 


geta$:ifa$=""then894 
ifa$="j"thenrun 

print"[SHIFT-CLR]":poke53280,14:po 
ke53281,6:poke646,14:end 
g=j:ifp/2<>int(p/2)theng=g+176 
ifg=l8 6theng=l5 2 
ifp/2=int(p/2)theng=g+48 
ifg+peek(p-1)-224=10theng=47 
pokep,g:pokep+co,4:ifg=152thenp=p+ 
1: g=0 

p=p+l:return 
rem ** score ** 
t(z9)=t(z9)+j 

t(z 9)=t(z9)- j*(peek(1(z9)-2)=47) 
t(z9)=t(z9)-10*(peek(1(z9)-3)=47an 
dpeek(1(z9)-2)=152) 
ifl(z9)=1272orl(z9)=1352orl(z9)=14 
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1225 

1227 

1228 

1230 


1290 

1300 

2200 

2300 

2310 

2315 

2320 


2330 


2340 


2350 


2360 


2370 


2380 


2390 


2400 


2410 


2420 


32thenl290 

t (z9)=t (z9)-j*(peek(1(z9)-4)=152) 
t(z9)=t(z9)-j*(peek(1(z9)-3)=152) 
t(z9)=t(z9)-j*((peek(1(z9)-5)=152a 
ndpeek(1(z9)-3)=152)) 
t(z9)=t(z9)-j *(peek(1(z9)-6)=152an 
dpeek(1(z9)-4)=152andpeek(1(z9)-2) 
=152) 

printc$(z9);t(z9) 
return 

data 1661,1700,1739,1741,1778, 1780 
,1819,1821,1860,1901 
print"[SHIFT-CLR]";chr$(14) 
printtab(13)"BOWLING!" 
printtab(13)"[8xC0M-T]" 
print"Met[SPACE]dit[SPACE]spel[SPA 
CE]moet[SPACE]u[SPACE]zorgen[SPACE 
]dat[SPACE]u[SPACE]met[SPACE]een"; 
print"bal[SPACE]alle[SPACE]kegels[ 
SPACE]omgooit.[SPACE]De[SPACE]bal[ 
SPACE]beweegt" 

print"van[SPACE]boven[SPACE]naar[S 
PACE]beneden.[SPACE]Door[SPACE]een 
[SPACE]druk" 

print"op[SPACE]een[SPACE]toets[SPA 
CE]gaat[SPACE]de[SPACE]bal[SPACE]n 
aar[SPACE]rechts." 

print"U[SPACE]mag[SPACE]2[SPACE]ke 
er[SPACE]gooien.":print 
print"Nog[SPACE]2[SPACE]aanwijzing 
en:":print 

print"/[SPACE]-[SPACE]U[SPACE]hebt 
[SPACE]alle[SPACE]kegels[SPACE]omg 
egooid[SPACE]in[SPACE]2" 
print"[4xSPACE]worpen.[SPACE]De[SP 
ACE]volgende[SPACE]worp[SPACE]word 
t[SPACE]dub-" 

print"[4xSPACE]bel[SPACE]gerekend. 

ii 

print"X[SPACE]-[SPACE]U[SPACE]hebt 
[SPACE]alle[SPACE]kegels[SPACE]omg 
egooid[SPACE]in[SPACE]1" 
print"[4xSPACE]worp.[SPACE]De[SPAC 
E]volgende[SPACE]2[SPACE]worpen[SP 


mm 


x>x*x*£ 










MMM 

mmM 

xxx-v-v 




ACE]worden" 

2430 print"[4xSPACE]dubbel[SPACE]gereke 
nd. " 

2440 print:print rprinttab(10)"Veel[SPAC 
E]succes[SPACE]!!!" 

2445 print:printtab(9)"Druk[SPACE]op[SP 
ACE]een[SPACE]toets" 

2450 geta$:ifa$=""then2450 
2460 printchr$(142):gotolO 

** EINDE LISTING bowlina ** 


regel 1 
regel 2 
regel 3 
regel 4 
regel 5 
regel 6 
regel 7 
regel 8 
regel 9 
regel 10 
regel 11 
regel 12 
regel 15 
regel 17 
regel 18 
regel 110 
regel 112 
regel 113 
regel 115 
regel 118 
regel 120 
regel 121 
regel 122 
regel 123 
regel 128 
regel 129 
regel 132 
regel 133 
regel 134 
regel 136 
regel 138 
regel 146 
regel 150 
regel 154 
regel 156 
regel 160 
regel 166 
regel 167 
regel 169 
regel 170 
regel 172 
regel 174 
regel 175 
regel 178 
regel 180 
regel 182 
regel 183 
regel 184 
regel 190 
regel 192 
regel 193 
regel 194 
regel 195 
regel 198 
regel 202 
regel 203 
regel 206 
regel 207 
regel 209 
regel 210 
regel 211 
regel 213 
regel 214 
regel 225 


Checksum Bowling 


85 

regel 

230 

43 

245 

regel 

430 

107 

200 

regel 

440 

160 

85 

regel 

460 

57 

117 

regel 

550 

105 

117 

regel 

554 

3 

4 

regel 

558 

225 

156 

regel 

560 

35 

196 

regel 

562 

146 

45 

regel 

566 

195 

80 

regel 

569 

179 

189 

regel 

572 

130 

0 

regel 

595 

122 

111 

regel 

597 

46 

145 

regel 

600 

35 

85 

regel 

610 

42 

227 

regel 

612 

46 

169 

regel 

882 

191 

174 

regel 

883 

86 

176 

regel 

884 

130 

161 

regel 

887 

243 

255 

regel 

894 

114 

147 

regel 

895 

97 

5 

regel 

896 

198 

198 

regel 

1000 

255 

196 

regel 

1002 

91 

85 

regel 

1004 

158 

214 

regel 

1006 

28 

23 

regel 

1012 

164 

228 

regel 

1100 

245 

165 

regel 

1200 

179 

174 

regel 

1201 

22 

10 

regel 

1205 

81 

226 

regel 

1210 

130 

43 

regel 

1220 

101 

186 

regel 

1225 

128 

236 

regel 

1227 

127 

219 

regel 

1228 

236 

143 

regel 

1230 

182 

229 

regel 

1290 

87 

80 

regel 

1300 

142 

140 

regel 

2200 

38 

83 

regel 

2300 

40 

134 

regel 

2310 

192 

223 

regel 

2315 

37 

251 

regel 

2320 

222 

221 

regel 

2330 

172 

219 

regel 

2340 

63 

204 

regel 

2350 

113 

154 

regel 

2360 

162 

49 

regel 

2370 

5 

55 

regel 

2380 

109 

236 

regel 

2390 

35 

135 

regel 

2400 

35 

223 

regel 

2410 

21 

251 

regel 

2420 

140 

238 

regel 

2430 

254 

219 

regel 

2440 

133 

204 

regel 

2445 

113 

44 

regel 

2450 

152 

2 

regel 

2460 

108 
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Commodore 64 


Games blijven de meest aantrekkelijke kant van het computeren. Zowel de beginnen¬ 
de hobby-computer gebruiker als de zakelijke professional speelt met enige regelmaat 
een spelletje. Electronic Arts is er groot mee geworden, en niet ten onrechte. Hieron¬ 
der de nieuwste games van dit internationale software-concern. 

Vakantie-games 

W e konden het niet nalaten een kleurenpagina met (scherm)afbeeldingen 
te maken van de allernieuwste spelletjes voor de C-64 computer. Op de 
volgende pagina vindt u korte beschrijvingen van de verschillende games. 



Neuromancer Battle Chess Deathlord 




Fusion 


T.K.O. 


Serve & Volley 



Powerplay Hockey Fast Break R ac k ’ em 
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Commodore 64 


Battle Chess 

Een zeer uitgebreid en mooi vormge¬ 
geven schaakspel, waarbij de ver¬ 
schillende stukken elk hun eigen 
speelstijl en persoonlijkheid gebruikt 
om de tegenstander te bestrijden. Het 
is een spel, dat de tactische elemen¬ 
ten van schaken combineert met de 
actie van een vechtspel. Inzicht en er¬ 
varing bezorgen de speler de kans op 
een overwinning. Met veel muziek en 
geluidseffecten, (voorlopig alleen 
Amiga & PC). 



Battle chess 


Powerplay hockey 

Een actie hockey-game met vele in¬ 
stelmogelijkheden en snelle acties. 


oplopen, dus voorzichtig! Het spel kan 
met één of twee spelers gespeeld 
worden. Een beetje oefen met spar- 
ring-partner is aan te bevelen, anders 
lig je er in de eerste ronde uit via een 
K.O. 

Rock ’em 

Een gevarieerd biljart-game met vijf 
verschillende spellen waaronder 
snooker, bumper pool, en pool-biljart. 
Je kunt een 3D-instelling nemen, 
waardoor een realistische weergave 
wordt bereikt. Je kunt je beste stoten 
bewaren, en zelf een eigen spel ont¬ 
werpen en opslaan. Een leuk spel, dat 
ook door creatieve spelers kan wor¬ 
den gebruikt, die meer willen dan al¬ 
leen spelen. 

Serve & Volley 

Een tennis-simulatie spel, waarbij ac¬ 
tie en strategie een belangrijke rol 
spelen. Naast drie verschillende 
speelniveaus, kan keuze worden ge¬ 
maakt uit verschillende slagsnelhe- 
den, baan-oppervlakte, service-type. 
Ook is er de mogelijkheid verschillen¬ 
de speeloefeningen te doen, alvorens 
de baan op te gaan. Je kunt alleen, 
met twee personen of met meerderen 
spelen. In het laatste geval kun je een 
toernooi opzetten, dat automatisch 
wordt bijgehouden. 


T.K.O. 

Technical Knock Out is een arcade 
game met met mooie graphics. Het 
geeft de speler het gevoel zelf in de 
ring te staan. Zowel offensieve als de¬ 
fensieve manoeuvres en veel ver¬ 
schillende slag-mogelijkheden maakt 
dit spel erg attractief. Bij rake klappen 
kun je een blauw oog of schaafwond 



Battle chess 


Deathlord 

In het land Korn heeft de slechte vorst 
Deathlord de macht overgenomen. 
Slechts zes strijders zijn er nog over 
om het land van de onderdrukker te 
bevrijden. Meer dan 120 monsters in 
157 verschillende levels moeten over¬ 
wonnen worden. Daarbij spelen kli¬ 
maat, terrein en magische vloeken 
een belangrijke rol. Het spel ademt 
een Japanse sfeer uit, zowel in bewa¬ 
pening als strijdmethodes. Een fan¬ 
tastisch game. 

Fusion 

Een arcade/strategy-game met gede¬ 
tailleerde graphics en 8 verschillende 
levels. Veel muziek en geluidseffecten 
maken het spelen tot een boeiende 
belevenis. 

Neuromancer 

Neuromancer is gebaseerd op het 
boek van W. Gibson en zal ook als film 
worden uitgebracht. Het spel speelt in 
de 21-ste eeuw en gaat over een we¬ 
reld, die gevangen zit in een compu¬ 
tersysteem. De speler is een ‘hacker’, 



Battle chess 


die de goede apparatuur en software 
moet zien te verkrijgen om in te kun¬ 
nen breken in het allesoverheersende 
netwerk. Hoe meer software de ha¬ 
cker kan verzamelen, hoe groter de 
kans dat hij de beste zal zijn. Tijdens 
het spel kun je op bepaalde momen¬ 
ten overleggen met andere krakers, 
en zo informatie en tips uitwisselen. 
Een zeer intrigerend avontuur. 



Neuromancer 

Fast Break 

Een drie-tegen-drie basketbal spel, 
waarbij men van tevoren offensieve 
en defensieve spelers kan selecteren. 
Er zijn professionele regels en het 
spel heeft een enorm scala aan bewe¬ 
gingen en worpen beschikbaar. 
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Demo wedstrijd 


E r blijkt in toenemende mate de behoefte te bestaan om demo’s te ont¬ 
wikkelen. Waarschijnlijk komt dit omdat "kraken" bijna geen sport 
meer is, het is niet aantrekkelijk genoeg meer. De creativiteit moet toch 
benut worden, en wat is dan beter dan het ontwikkelen van de vaak erg 
moeilijke demo’s. Veel "professionele" krakersgoepen maken er een 
sport van demo’s voor de programma’s te zetten. 


Het is ongelofelijk wat sommige 
programmeurs hierin kunnen 
doen. We hebben reeds geweldige 
voorbeelden van deze demo’s ge¬ 
zien. Een ex-collega blad van 
COMMODORE INFO was reeds 
een prijsvraag begonnen. Hier¬ 
door zijn reeds een groot aantal 
programmeurs aan het werk ge¬ 
gaan. Het zou toch zonde van het 
werk zijn ais hier niets meer mee 
zou gaan gebeuren. 

Om te voorkomen dat al dit schoons 
in de kast zou belanden hebben wij 
besloten deze prijsvraag voort te zet¬ 
ten. Een ieder moet tenslotte kunnen 
genieten van al deze demo’s. 

Iedereen die een demo heeft ge¬ 
schreven, of nog wil gaan schrijven 
kan aan deze wedstrijd meedoen. 

° Enkele beperkingen: De demo’s 
moeten werken op een COMMO¬ 
DORE, dit mag een 16, 64, 128 



maar ook een Amiga ja zelfs een 
PC zijn. 

° Het programma moet origineel, 
dus zelf geschreven zijn. 

0 Bij de demo moet een duidelijke 
uitleg zijn gegeven, waarin de wer¬ 
king wordt beschreven, de naam 
en adres van de maker en alle ver¬ 
dere informatie die van belang is 


bij de beoordeling van de demo. 
Deze informatie het liefst als "file" 
meegeleverd. 

° De demo’s moeten worden inge¬ 
stuurd op een magnetisch medium, 
of te wel in goed Nederlands op 
een diskette of een cassette. 

De winnaar van deze wedstrijd zal 
worden uitgenodigd op onze volgen¬ 
de Commodore Info beurs zijn prijs te 
komen ophalen. Wat dit is houden we 
nog even geheim 

° De demo’s moeten worden inge¬ 
stuurd voor 1 februari 1989. De in¬ 
zendingen worden eigendom van 
Sala Communications. 

Het adres waar al dit schoons naar 
toe kan is: 


Postbus 43048 
1009 ZA Amsterdam 


Hoewel de rubriek Triple 128 al enige 
tijd in ons blad geplaatst wordt, heb¬ 
ben we nog nooit geschreven, wie er 
achter de geheimzinnige ‘Johan & 
Johan’ schuil gaan. Vandaar, dat we 
nu de medewerkers maar eens dui¬ 
delijk willen noemen: 


Richard Flapper 
Kees Koehoorn 
Klaas Koopman 
Henk Methorst 
Richard Puyt 
Coen Roos 



Paintmaster 

De Calcomp Paintmaster is een kleurenplotter, die nu ook aan 
te sluiten valt op de Amiga. Voor zeer fraaie kleurenafdrukken 
is dat dan een ideale combinatie. 

Leverancier: Calcomp. 
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M ssers 



Dat er ondanks een zorvuldige contro¬ 
le toch nog enkele (kleine) foutjes in 
de listings kunnen zitten blijkt wel 
weer uit het vorige nummer. In het 
Programma ZON EN MAAN zijn een 
aantal essentiële tekens weg geval¬ 
len. Door verschillende kanten, waar¬ 
onder de maker van het programma, 
zijn we hier op gewezen. Hieronder 
volgen de regels zoals ze hadden 
moeten zijn: 

310 def fnr(y)=(/180)*(y-(360*int(y/3 

60))):rem graden worden radialen m 
od 2 

320 def fns(y)=atn(y/sqr(-y*y+1)):def 
fnc(y)=/2-fns(y):rem arcsin en ar 
ccos 

720 r=r+(-9.138e-5+4.ge-7*t)*cos(2*g)+ 

(-1.45e-6)*cos(3*g):rz=10[kwadraad 

pijl]r 

830 kl=(cos(b)*sin(l)*cos(e)-sin(b)*si 
n(e))/cos(de):kl=fns(kl):z(1)=kl:z 
(2)=-kl 

900 kl=atn(h1/h2):ifh2<0thenkl=kl+ 

970 a=-(cos(de)*sin(tk))/cos(h):a=fns( 
a):z(3)=a:z(4)=-a:gosub1070:a=zq 
980 h=h*180/:a=a*180/:pudef M [SPACE]" 

1070forq=1 to4:z(q)=z(q)-(2**int(z(q)/( 
2*))):z(q+4)=int(100*z(q)):next 
1140 ifuh>thenuh=uh-(2*) :goto1140:else 
ifuh<-thenuh=uh+2*:goto1140 
1160ta=s*abs(fnc(va)):tb=ut*/12+ta-uh 
1170tb=12*(tb/)+.00833 
1370l=lk*180/+(co/3600):l=fnr(l) 


1420ss=.272493*sin(pi):ss=ss*180/ 
1550ifuh>thenuh=uh-(2*):goto1550:else 
ifuh<-thenuh=uh+2*:goto1550 
1590ifit=1 thendd=.9661 :elsedd=1.0027- 
(kl-dk)*(12/)/(ut-du) 

1600tb=ut+(ta-uh)*12/(dd*) 

Lichtkrant uit nummer 5 juni/juli: 

In regel 490 en 580 komt voor: [shift ’] 
dit moet zijn: [shift @] 

In regel 1000 staat aan het eind 271,2 
dit moet zijn: 2712 


In regel 1180 staat aan het eind 3,364 
dit moet zijn: 3364 

In regel 1240 staat aan het eind 32,80 
dit moet zijn: 3280 

Ook in het laatste nummer staat een 
onduidelijkheid in het programma: 

Typecursus c 64: 

In regel 15, 22, 23, 95 en 99 staat een 
plat, laag liggend streepje, dit is het 
pijltje naar links. 



Amiga DTP 


H et heeft relatief lang geduurd, voor de Amiga zijn plaats als echt bruik¬ 
baar DTP systeem kon opeisen. Maar met de komst van pakketten als 
Professional Page is er de laatste tijd veel ten goede veranderd. 


Hoewel in theorie de beeldschermkwaliteit en vooral de 
kracht van de gebruikte 68000 processor meer dan vol¬ 
doende was, ontbrak de software en de koppeling naar de 
laserprinter in het begin. De meeste software richtte zich 
op huiscomputer-gebruikers, die niet meer dan een ma¬ 
trixprinter hadden. Toen bij de Mac en de PC allang pro¬ 
fessionele pakketten beschikbaar waren, bleef het bij de 
Amiga wat amateuristischer. Maar dat is gelukkig veran¬ 
derd, met een pakket als Professional Page kan men nu 
ook heel goed professioneel werken en bijvoorbeeld gea¬ 
vanceerde postscript laserprinters als de QMS PS 810 
aansturen. Dit pakket, dat ondertussen versie 1.1 kent, 
komt van Gold Disk. Twee jaar geleden dook het voor het 
eerst op, op de Hannover Messe toonde men half werken¬ 
de exemplaren, maar is nu al heel goed aangepast aan 
de moderne DTP eisen. 
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C-64 Software 


Z eker rond de vakanties is het dringen geblazen op de software-markt. 

Game-ontwerpers, maar ook serieuzere programma’s dingen naar de 
gunst van de ncomputergebruiker. De redaktie speurde de verschillende 
pakketten op en deed een keuze. 


Bad Cat 


Bad Cat is een spel dat is uitgebracht 
door de firma Rainbow Arts. In Neder¬ 
land is dit softwarehuis om onbegrij¬ 
pelijke redenen wat minder bekend. 
Het is een spel dat alleen, maar ook 
met meerdere personen kan worden 
gespeeld. Het programma begint op 
een afgelegen locatie: het stadspark. 
Een aantal sloten vormen de eerste 
hindernis, moeilijk is het nog niet. Er¬ 
over heen springen blijkt erg mee te 
vallen, maar nu beginnen de eigenlij¬ 
ke problemen. De muren die we nu te¬ 
genkomen zijn redelijk te nemen door 
er een salto over heen te maken, dit 
vereist wel de nodige oefening. Soms 
is het eenvoudiger eerst op de muur te 
springen. Hier achter ligt een grote cir¬ 
cusbal. Al balancerend is het mogelijk 
hierop vooruit te komen. Een verbor¬ 
gen trampoline kan het springen nog 
wat eenvoudiger maken. De sleutel, 
dit is het waar het hier om draait. Eerst 
dit kleinood in bezit proberen te krij¬ 
gen en daarmee kan de motorfiets 
worden gestart. Als je op een bepaald 
onderdeel tijd tekort komt ga je auto¬ 
matisch door naar een volgend onder¬ 
deel. Op een plattegrond is een knip¬ 
perend stipje te zien, hier moet nu 
naar toe worden gegaan. Dit moet zo 


snel mogelijk worden gedaan, maar 
pas op het andere verkeer. Is dit ge¬ 
lukt dan kan er met het volgende on¬ 
derdeel worden gestart. Hier zijn er de 
platforms, er moet gesprongen wor¬ 
den. Beide liggen in het water, en het 
is niet de bedoeling om zelf in het wa¬ 
ter te vallen. Probeer wel zo mooi mo¬ 
gelijke figuren te maken. Hierna komt 
de plattegrond weer terug. Het laatste 
onderdeel speelt zich op een bowling¬ 
baan af. Het is de bedoeling je tegen- 


The winter games 


Bad cat 


stander omver te kegelen. Op zich 
niet moeilijk, ware het niet dat je te¬ 
genstander precies de zelfde op¬ 
dracht heeft, oppassen dus. Het blijft 
dus uitkijken en probeer je tegen¬ 
stander steeds een balletje voor te 
blijven. 


The winter games 

Sport, de grote uitdaging voor veel 
personen. Over de gehele wereld zijn 
sportmensen bezig met het verweze- 
lijken van hun ideaal, het halen van de 
Olympische spelen. Hoe groot of klein 
de meeste spelers ook mogen zijn, 
het blijft meestal bij een droom. Niet 
alleen de eigen prestaties tellen, maar 
meestal zijn de strakke régels van de 
verschillende kommissies de grote 
boosdoeners. Of dit nu de zomer of 
winterspelen zijn, dit maakt geen ver¬ 
schil. 

Epyx heeft voor al deze problemen de 
oplossing gevonden. Iedereen die 
een computer heeft, of er eentje kan 
lenen (gebruiken) kan aan deze spe¬ 
len meedoen, zelfs uitblinken in sport 
is niet noodzakelijk, het kan zelfs een 
handicap zijn. Er zijn al verschillende 
soorten competitiespelen op de 
markt, allemaal zijn deze gebaseerd 
op verschillende sportonderdelen. 
Ook dit spel is hierop geen uitzonde¬ 
ring. Dat EPYX een naam heeft hoog 
te houden blijkt ook weer uit de uitvoe¬ 
ring van dit programma, net even an- 
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ders waardoor het toch boven de an¬ 
dere uitsteekt. Na het opstarten van 
het programma moet er een keus ge¬ 
maakt worden voor welk land er moet 
worden uitgekomen. Dit gebeurt door 
met de joystick het land van uw keuze 
aan te wijzen. Het bijpassende volks¬ 
lied complimenteert het geheel. Niet 
alle onderdelen zijn even makkelijk. 
Om in een tak van sport goed mee te 
kunnen komen is het noodzakelijk dit 
onderdeel goed te oefenen. Later kan 
er een competitie worden gevolgd. Bij 
de intro öntbreekt zelfs de sneeuw 
niet, tijdens het gestaag vallen van de 
grote vlokken kan er gekozen worden 
uit de volgende onderdelen: rodelen, 
cross country, figuur schaatsen, ski 
springen, slalom skiën, schaatsen en 
ook de grote afdaling. 

Bij het rodelen kunnen we kiezen uit 
vier verschillende trajecten. Onder in 
het beeld wordt exact aangegeven op 
welke positie we ons bevinden. Door 
een druk op de vuurknop maken we 
een snelle start. De kunst is nu een 
ideale baan te zoeken om zo snel mo¬ 
gelijk beneden te zijn. Dat hierbij ook 
wel het nodige fout kan gaan zult U 
zelf wel merken. Bij het tweede onder¬ 
deel, de cross country, hebben we de 
keuze uit drie verschillende parcour- 
sen. Elk onderdeel heeft zijn specifie¬ 
ke moeilijkheden. Veel ervaring op¬ 
doen is de enigste manier om hier als 
winnaar te voorschijn te komen. Bij 
het figuurschaatsen moeten we een 
keuze maken welke muziek we willen 
gebruiken. Hard rock, new wave of 
houd U het liever bij de jazz. Zaak is 
het om de sprongen zo goed mogelijk 
uit te voeren. Bij dit onderdeel wordt 
het al gauw duidelijk waarom er gele¬ 
genheid tot oefenen is ingebouwd. De 
punten die er te behalen zijn met het 
schans springen hebben alles te ma¬ 
ken met de moeilijkheidsgraad van de 
sprongen. Een meervoudige salto met 
schroef levert nu eenmaal meer pun¬ 
ten op dan een eenvoudige salto. Nou 
ja, eenvoudig, U zult het wel merken. 
Bij de slalom is de snelheid, de contro¬ 
le en een goede timing een voorwaar¬ 
de om het tot een goed einde te bren¬ 
gen. Maar ook hier staan de beste 
stuurlui aan de wal. Bij het schaatsen 
is de kunst om de joystick zo regelma¬ 
tig mogelijk heen en weer te bewegen, 
dit valt zeker bij de langere afstand 
niet mee. Een goede joystick is wel 
een voorwaarde. Bij het laatste onder¬ 
deel is een warming-up een belangrijk 
onderdeel. Een goede positie bij de 
start kan al heel veel goed doen. 
Wereldrecords worden automatisch 
naar disk weggeschreven en wat is er 
nu leuker als je eigen naam op de lijst 
voorkomt. Dat je eigen volkslied hier¬ 


bij gespeeld wordt maakt het geheel 
nog veel aantrekkelijker. We hopen 
nog veel meer spelen van Epyx te krij¬ 
gen. 


World Tour Golf 

Electronic Arts, ook al zo een leveran¬ 
cier die (bijna) altijd perfecte spelen 
op de markt brengen. Golf is hier weer 
zo een voorbeeld van. Het program¬ 
ma maakt met ons een reis om de we¬ 
reld lang de overbekende golfvelden. 
Het spel begint met een grote tas golf- 
sticks en een groot aantal balletjes. 


Met deze attributen bestaat de moge¬ 
lijkheid eerst wat te gaan oefenen. Dit 
is zeker als U nog niet zo ervaren bent 
wel aan te raden. Bij het echte starten 
van het spel kunt U kiezen waar de 
reis moet beginnen, is dit in Californië, 
Texas, Hawai of houden we het dich¬ 
ter bij huis in de Schotse hooglanden. 
Er zijn 25 verschillende golf-linkswaar 
U uit kunt kiezen. Waarbij grote ver¬ 
schillen zitten in de lengte maar zeker 
ook in de moeilijkheids graad. De golf- 
sport heeft zo zijn eigen taalgebruik, 
door het spelen van dit spel steek je 
zo ook nog wat op. Het is zaak het 
weerbericht goed in de gaten te hou¬ 
den, want net als in het echt kan het 
een spelbreker zijn. Dat er niet voor 
niets een oefengelegenheid in het 
spel is opgenomen blijkt wel uit de ver¬ 
schillende misslagen die ik in het be¬ 
gin maakte. Er is zo veel waar je op 
moet letten, de wind, speel je hard of 
zacht of iets daar tussen. Een heel 


groot verschil maken de verschillende 
clubs. Er zijn clubs bij die speciaal 
voor langere afstand zijn bedoeld, en 
geven rare reacties als hiermee geput 
gaat worden. Onder putten verstaan 
we de bal vanaf de green, dit is het 
gladde stuk gras, naar de hole willen 
slaan. De grote kunst is al deze varia¬ 
belen tot een zodanig geheel te vor¬ 
men dat de bal in zo min mogelijk sla¬ 
gen in de hole terecht komt. Een leuk 
spel, waar zeker na wat oefenen wel 
uit te komen is. 

Al deze software is te verkrijgen bij 
een goede softwareleverancier. 


The Best Of Five Years 

De firma Infolist uit Huizen brengt al 
sinds jaren de software die als listings 
in dit blad staan op de markt. Nu is het 
idee gegroeid om uit al deze honder¬ 
den programma’s een keus te maken 
en deze op drie verzamel diskettes uit 
te brengen. Gezien de veelheid aan 
programma’s staan deze diskette’s 
vrij vol. Er is een splitsing gemaakt op 
de eerste diskette staan uitsluitend 
spelletjes. Diskette nummer twee be¬ 
vat handige programma’s, de zoge¬ 
naamde Utilities. Hierbij zijn ook pro¬ 
gramma’s voor een eenvoudig disk- 
beheer. De derde diskette bevat edu- 
katieve software in de ruimste zin van 
het woord. 

De diskettes zijn te bestellen bij Info¬ 
list en kosten ƒ 15,00 per stuk. Op 
zich is dit al een lage prijs maar per set 
wordt het nog aantrekkelijker: Hier 
geldt drie halen, twee betalen. Met an- 
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dere woorden een set van drie disket¬ 
tes kost ƒ 30,00. 

Als U ze bijtijds besteld heeft U zeker 
een prachtig sinterklaas cadeau in 
huis. Int. 02152-62343 

Teletext decoder 

De firma CAT & KORSH maakt het nu 
mogelijk de commodore 64 of de 128 
te verbinden met de antenne kabel. 
Op zich niets nieuws zult U zeggen, 
maar het unieke hierin is dat de Tele¬ 
tekst op uw vertrouwde commodore 
leesbaar wordt. 

De programmatuur is ontwikkeld door 
print technik uit Duitsland. Het is mo¬ 
gelijk geworden door de steeds voort¬ 
schrijdende technische ontwikkeling. 
Overal door geheel Europa is het mo¬ 
gelijk de Teletext informatie te ontvan¬ 
gen. 

Het pakket bestaat uit een schijfje 
software een handleiding en een stuk¬ 
je hardware. 

De handleiding is geschreven in de 
Duitse taal. Niet al te moeilijk te lezen, 
maar sommige woorden die in de 
computertaal volledig zijn ingeburgerd 
in het Engels klinken zo vreemd. 



De hardware bestaat uit een insteek- 
module. Zet bij het inpluggen de com¬ 
puter en eventuele randapparatuur al¬ 
tijd uit! De Teletext decoder wordt met 
de aansluitingen naar boven in de 
userpoort geplaatst. Op deze print- 
plaat zit de aansluiting voor de artfen- 
nekabel. Een probleem hierbij is mis¬ 
schien de juiste stekker, maar iemand 
zonder twee linkerhanden kan hier ze¬ 
ker een passende stekker voor mon¬ 
teren. De software wordt op de ver¬ 
trouwde manier geladen, dus met: 
load "*",8 

Starten met run en pagina 100 ver¬ 
schijnt. Diegene die regelmatig Tele¬ 
tekst gebruiken weten dat dit de in¬ 
houdsopgave is. Wilt U iets ontvan¬ 
gen dan moet U wel zeker weten dat 


er wat uitgezonden wordt, dit is 
meestal van ’s morgens 9.00 uur tot 
dat de laatste zender uit de lucht gaat. 
Heeft U uit het menu een keuze ge¬ 
maakt dan typt U het korresponderen- 
de nummer in. Dit moet altijd een drie 
cijferig getal zijn. Werkt U eenmaal 
met het programma dan heeft U de 
handleiding niet meer nodig; weet U 
een bepaald kommando niet meer 
dan is een druk op de ? voldoende om 
alle informatie op het scherm te krij¬ 
gen. Het grote voordeel ten opzichte 
van een televisie is dat een bepaalde 
pagina ook naar disk kan worden 
weggeschreven, en later weer kan 
worden ingelezen. Dit is makkelijk met 
bijvoorbeeld recepten of sportuitsla¬ 
gen, een komplete dokumentatie kan 
zo worden aangelegd. In de handlei¬ 
ding is alle informatie te vinden die no¬ 
dig is voor het maken van eventuele 
verbinding snoeren. 

Het is een programma dat voor een 
bepaalde groep gebruikers erg aan¬ 
trekkelijk is. Dit zijn meestal personen 
die geen genoegen nemen met een 
spelletje spelen. Zij kunnen hiermee 
hun hart ophalen. 



COURBOIS SOFTWARE 

Fazantlaan 61-63 

6641 XW Beuningen (Bij Nijmegen) 

Telefoon : 08897-72546 
Postbank : 43.03.695 



Diverse Amiga produkten 

* Muismat, uw muis rolt veel beter 

* Stofhoes voor de Amiga 500 


15.00 

15.00 


3.5" drive, volledig compatible 375.00 
5.25" drive, 40/80 tracks omschakelbaar 500.00 
20 MB harddisk, inclusief controller 1299.00 


Meer dan 1000 software titels voor de volgende computers : 

* Commodore 64 / 128 / C16 / Plus 4 / VIC-20 

* MSX * Atari Huiscomputers * Amiga 


Bootschakelaar 25.00 

* Zonder solderen te monteren 

* Maakt uw externe drive DF0: 


Nederlandse software 

* Leg Puzzel II 

* Boulder Dash 

* Scrabble 

* Programma Bestand 

* Platen/Video Bestand 

* Cijfers & Letters 

* Electro 

* Onderwijs disk 

* Werken in de CLI 

* Werken met AmigaBasic 

* Klaverjassen 

* Show Designer 

* Puzzle Mania 

* Game Disks (I,II,III) 

Sound-Digitizer 

* Inclusief software en 


per titel 15.00 

* Printer Tekeningen 

* Viditel Simulatie 

* Galaxians 

* Space Invaders 

* Kaartspelen 

* Find the Way 

* Mini Loco 

* Adressen Bestand 

* Razzle Dazzle 

* Label Designer 

* Desk Top Publisher 

* Kamertje Verhuren 

* Memory Master 

* Kinder Kleur Boek 

99.00 


voorbeelden 

* Werkt met alle bestaande digitizer software 


Een greep uit ons programma : 

* 70 cassettes met elk 12 spelen voor de C-64 a 

* 22 cassettes met elk 8 spelen voor de MSX a 

* 27 cassettes met elk 8 spelen voor de Atari a 

* 20 cassettes met elk 10 spelen voor de C-16 a 

* Teksverwerkers voor 64/128/Atari/C16/VIC-20 vanaf 

* Printertekeningen 64/C16/Atari/MSX/Amiga vanaf 

* Onderwijsprogramma's voor 64/Atari/C16/Amiga vanaf 

* Avonturen voor 64/Plus4/MSX a 

* Diverse cursussen voor diverse computers vanaf 


10.00 

10.00 

10.00 

10.00 

10.00 

10.00 

10.00 

10.00 

10.00 


Diskettes voor alle computers : 

* 5.25" NoName DS DD per doos 15.00 - 

* 5.25" Nashua DS DD per doos 

* 3.5" NoName DS DD per doos 37.50 - 

* 3.5" Nashua DS DD per doos 40.00 - 


Per 2 dozen 25.00 
15.00 

Per 2 dozen 70.00 
Per 2 dozen 75.00 


Natuurlijk leveren we ook : 

* Diskette Bakken * Stofhoezen 

* Diverse Cartridges * Etiketten 

* Tijdschriften * Printjes 


* Joysticks 

* Boeken 

* Public Domain 


GRATIS NIEUWE CATALOGUS : 08897-72546 
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Checksum C-16 


Checksum cl 6 


KShsSSKH»:*:-:- :: : :-:-»Sx5S?| 

. 


rem 

*** 


****************************** 


rem syntax.checksum 
rem voor c-16 & plus/4 
rem 

rem syntax testen met 'sys 1536' 
rem 

rem v.851128.16 jan bodzinga 

r*»m ****************************** 


rem 
* * * 


90 

100 


110 


i=1536 :rem beginadres 

reada:if a>=0then pokei,a:i=i+l:got 
olOO 

print "data [SPACE] is [SP ACE] weggezet 


360 

data 

96,162, 

0 , 

189,123 

370 

data 

6,240, 

6, 

32,210 

380 

data 

255,232, 

208, 

245, 32 

390 

data 

73, 6, 

170, 

32, 73 

400 

data 

6,132, 

253, 

32, 95 

410 

data 

164,162, 

3, 

169, 32 

420 

data 

32,210, 

255, 

202,208 

430 

data 

250,169, 

0 , 

133,252 

440 

data 

164,253, 

96, 

82, 69 

450 

data 

71, 69, 

76, 

32, 0 

460 

data 

0, 72, 

138, 

72, 32 

470 

data 

225,255, 

240, 

251,104 

480 

data 

170,104, 

96, 

-1 

** EINDE LISTING checkslö 


120 


130 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 


print"cheksum[SPACE]printen[SPACE] 

met[SPACE]'sys[SPACE]1536' 

end 

data 165, 43,166, 44,133 
data 31,134, 32,169,147 
data 32,210,255,160, 0 

data 240, 3, 32, 73, 6 

data 32, 73, 6,208, 1 

data 96, 72,152, 32,131 
data 6,168,104,234, 32 
data 81, 6, 32, 73, 6 

data 240, 12,201, 32,240 
data 247, 24,101,252,133 
data 252, 76, 37, 6,166 

data 252,169, 0,132,253 

data 32, 95,164,169, 13 
data 32,210,255,164,253 
data 76, 17, 6,200,208 

data 2,230, 32,177, 31 


REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

200 

210 

220 

230 

240 

250 

260 

270 

280 


249 

247 

121 

143 

75 

143 

8 

249 

103 

2 

245 

237 

128 

210 

208 

142 

1 

3 

157 

155 

215 

186 


REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 


290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 


248 

118 

204 

165 

252 

106 

98 

163 

45 

0 

58 

108 

159 

245 

202 

176 

12 

54 

43 

1 


Kleine advertenties 


C64 compl. 

Te koop aangeboden een Commodo¬ 
re 64, 1541 disk-drive, datarecorder, 
ongeveer 100 diskettes met software, 
powercartridge, turbotool, literatuur 
plus joysticks. 

Tel.: 02522-14119 








m 


Gevraagd diskdrive 

CBM 1541 max.prijs ƒ 225,- 
Tel. 01806-15326 


Kabel te koop 

Verbindingskabel voor C-64 naar 
Centronicsprinter (W.W.-inerface) 
voor 25% van de nieuwprijs, dus 
ƒ 60,- Diverse boeken over Commo- 
dore-64 (koopjes!) Tel. 02507- 
19480/12130. 




Schema’s C-16 

Wie kan mij helpen aan de schema’s 
voor de C-16. Copy’s zijn ook goed, 
eventueel tegen kleine vergoeding. 
Tel. 08385-12278 


Gezocht 

Penvriend(inn)en voor uitwisselen 
van poke’s, tips en andere interessan¬ 
te dingen. (C-16) 

E.Meijers, Pollux 319, Veenendaal. 


Te koop 

C-64, datasette, powercartridge, arca¬ 
de joystick, veel spellen en andere 
software ƒ 399,-- evt. met 37 cm 
port.ktv-monitor: ƒ 799,-- 
Tel 02518-59855 
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Te koop 

In 4 zeer luxe banden. "Het zwaarde¬ 
re werk op de commodore 64" 
t/m de 10 aanvulling. Nieuwprijs _+ 
ƒ 700,-. Vraagprijs ƒ 350,- 
’ Tel. 02290-32048 na 6 uur. 
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Amiga geheugen uitbreiding. 

Wegens overkompleet, zelfbouw ge¬ 
heugen uitbreiding 512 k. Print (ge¬ 
boord) met bouwbeschrijving ƒ 30,- 
incl. verz.kosten. 

Tel. 08342-3037 
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PRINT-OUT C-16 met o.a. Move 


Ghostbusters 


Wie kent zo langzamerhand niet de Ghostbusters ? 
H. Staaks stuurde ons de volgende variant. De be¬ 
doeling van dit spel is zo snel mogelijk 300 punten te 
halen. Na elke 50 punten volgt er een bonus ronde. 
Hiervoor moer er op de spatiebalk gedrukt worden de 
punten die verlicht zijn worden dan bij het totaal op¬ 
geteld. Als er op de J wordt gedrukt wordt de joker in¬ 
gezet en zijn er meer punten te verdienen. 


8 


ii 

■ 12 


14 


sspi -i £ 

16 

■ 17 


18 

19 


20 

■ 21 


' 25 


Ü 33 




color0,1:color4,1:color1,2:le=l 
keyl,"poke65298,196:poke65299,208" 
+chr$(13):vol8:printt M [SHIFT-CLR]o 
ne[SPACE]moment[SPACE]please":gosu 
b57 

sc=0 :gosubl84:gosubl08 

s=0 :x=3200 .-print" [SHIFT-CLR] " : z=35 

67 

gosub98 
vol8:ty=1000 

color0,1:color4,1:colorl,2:print"[ 
CTRL-2]" 

charl,28,2,"CDEFG[SPACE]0":charl, 2 
8,4,"time" 

charl,35,8,"g[CRSR-DOWN][CRSR-LEFT 
]h[CRSR-DOWN][CRSR-LEFT]o[CRSR-DOW 
N][CRSR-LEFT]s[CRSR-DOWN][CRSR-LEF 
T]t[CRSR-DOWN][CRSR-LEFT]b[CRSR-DO 
WN][CRSR-LEFT]u[CRSR-DOWN][CRSR-LE 
FT]s[CRSR-DOWN][CRSR-LEFT]t[CRSR-D 
OWN][CRSR-LEFT]e[CRSR-DOWN][CRSR-L 
EFT]r[CRSR-DOWN][CRSR-LEFT]s" 
colorl,2:fort=3072to3098:poket,160 
:nextt:fort=4032to4058:poket,160:n 
extt 

poke3925-1024,53 

fort=3072to4032step40:poket,160:ne 
xtt:fort=3098to4058step40 rpoket,16 
0: nextt 

a=joy(1):ty=ty-l:charl,32,4,"[4xSP 
ACE]":charl,32,4,"":printty:sound3 
,720,0 

ifty<=lthen43 

pokex,64:onagosubl7,18,19,18,21,18 

,23,18 

goto25 

pokex,32:x=x-40:ifpeek(x)=160thenx 

=x+40:ty=ty-30 

return 

pokex,32:x=x+l:ifpeek(x)=160thenx= 

x-1:ty=ty-30 

return 

pokex,32:x=x+40:ifpeek(x)=160thenx 

=x-40:ty=ty-30 

return 

pokex,32:x=x-l:ifpeek(x)=160thenx= 

x+1:ty=ty-30 

return 

pokex,64:gosub30 

ifpeek(x)=65thensc=sc+10:fore=ltol 

000step200:soundl,e,1:next:z=3567: 

charl,38,2,"[4xCRSR-LEFT]":printsc 

ifsc=>400thenll9 

pokex,64:jl=x-1024:pokejl,100 

gotol3 

h=int(rnd(ti)*4)+1 
pokez,65:pokez-1024,125 
onhgosub35,37,39, 41 
pokez,65:pokez-1024,125 




return 

pokez,32:z=z-l:ifpeek(z)=160orpeek 
(z)=66thenz=z+l:ty=ty+2:return 
return 

pokez,32:z=z+l:ifpeek(z)=160orpeek 
(z)=66thenz=z-l:ty=ty+2:return 
return 

pokez,32:z=z+40:ifpeek(z)=160orpee 
k(z)=66thenz=z-40:ty=ty+2:return 
return 

pokez,32:z=z-40:ifpeek(z)=160orpee 
k(z)=66thenz=z+40:ty=ty+2:return 
return 

charl,0,10,"" 

print"[2xCRSR-RIGHT][4xSHIFT-*][2 
xSPACE][3xSHIFT-*][2xSPACE][5xSHIF 
T *][SPACE][4xSHIFT-*]" 
print"[2xCRSR-RIGHT][SHIFT-^][5xS 
PACE][SHIFT-*][SPACE][SHIFT-*][2xS 
PACE][SHIFT-*][SPACE][SHIFT-*][SPA 
CE][SHIFT-*][SPACE][SHIFT-*][3xSPA 
CE] " 

print"[2xCRSR-RIGHT][SHIFT-*][SPA 
CE][2xSHIFT-*][2xSPACE][SHIFT-*][S 
PACE][SHIFT-*][2xSPACE][SHIFT-*][S 
PACE][SHIFT-*][SPACE][SHIFT-*][SPA 
CE][3xSHIFT-*][SPACE]" 
print"[2xCRSR-RIGHT][SHIFT-*][2xS 
PACE][SHIFT-*][2xSPACE][3xSHIFT-*] 
[2xSPACE][SHIFT-*][SPACE][SHIFT-*] 
[SPACE][SHIFT-*][SPACE][SHIFT-*][3 
xSPACE]" 

print"[2xCRSR-RIGHT][4xSHIFT-*][2 
xSPACE][SHIFT-*][SPACE][SHIFT-*][2 
xSPACE][SHIFT-*][SPACE][SHIFT-*][S 
PACE][SHIFT-*][SPACE][4xSHIFT-*]" 
print:print 

print"[2xCRSR-RIGHT][4xSHIFT-*][2 
xSPACE][SHIFT-*][SPACE][SHIFT-*][2 
xSPACE][4xSHIFT-*][2xSPACE][3xSHIF 


print"[2xCRSR-RIGHT][SHIFT-*][2xS 
PACE][SHIFT-*][2xSPACE][SHIFT-*][S 
PACE][SHIFT-*][2xSPACE][SHIFT-*][5 
xSPACE][SHIFT-*][2xSPACE][SHIFT-*] 


print"[2xCRSR-RIGHT][SHIFT-*][2xS 
PACE][SHIFT-*][2xSPACE][SHIFT-*][S 
PACE][SHIFT-*][2xSPACE][3xSHIFT-*] 
[3xSPACE][SHIFT-*][2xSPACE][SHIFT- 


print"[2xCRSR-RIGHT][SHIFT-*][2xS 
PACE][SHIFT-*][2xSPACE][SHIFT-*][S 
PACE][SHIFT-*][2xSPACE][SHIFT-*][5 
xSPACE][3xSHIFT-*][SPACE]" 
print"[2xCRSR-RIGHT][4xSHIFT-*][3 
xSPACE][SHIFT-*][3xSPACE][4xSHIFT- 
*][2xSPACE][SHIFT-*][2xSPACE][SHIF 
T *] " 

soundl,500,500:sound3, 600,500 
fortd=lto3000:nexttd:gotol38 
v=65280:pokev+18,peek(v+18)and251: 
pokev+19,peek(v+19)and3or48:fort=8 
32to849 

reada rpoket,a:next:sys832 
gosubl44 

datal62,0,189,0,208, 157,0,48, 189, 0 
,209,157,0,49,202,208,241,96 
restore62:fort=12800tol2800+(52*8) 
-1:readxa:ifxa>-lthenpoket,xa:next 
t 
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print-out print-out print-out print-out print-out 


89 

90 


100 


101 


datal26,153,153,255,189,189,195,12 
6 

data60,126,255,153,255,195, 255, 153 
data60,78,126,62,30,62, 124,56 
dataO,126,64,64,126,2,2,126 
dataO,126,64,64,64,64,64,126 
dataO,126,66,66,66,66, 66, 126 
dataO,126,66,66,126, 68, 66, 66 
dataO,126,64,64,120,64, 64,126 
dataO,126,24,24,24,24,24,24 
dataO,34,34,34, 62,2,2, 62 
dataO,124,66,66,66,66, 66, 124 
data3,15,31, 63,57,63,63,60,31,15,1 
,3,62,124,192,255 

data255,192,192,255,255,255,255,25 
5,255,254,254,254,254,254,254,254 
datal92,240,248,252,156, 252,252, 60 
,248,240,128,192,124,62,3,255 
data255,224,3,255,255,255,255,255, 
255,127,127,127,127,127,127,127 
dataO,0,0,0,0,0,0,127,7,0,0,0,0,0, 
0,0 

data8,64,4,16, 0,4, 64,17 

dataO, 0,63,48,48,48, 63,48,48,48,48 

,48,48,48,0,0,0,0,224,16,16,16, 224 

,0 

dataO,0,63,48,48,48,63,48,48,48,48 
,48,48,48,0,0,0,0,224,16,16,16,224 
, 128 

data64, 64, 64, 64, 64,32, 0,0 
dataO,0,63,63,48,48,48,63,63,48,48 
,48,63,63,0,0,0,0,224,224,0,0,0,12 
8 

datal28,0,0,0,224,224,0,0 
dataO, 0, 63, 63, 48,48,48, 63, 63, 0, 0,0 
,63,63,0,0,0,0,224,224,0,0,0,224,2 
24,96,96,96 
data224,224,0,0 

dataO,0,31,63,48,48,48,48,63, 63, 48 
,48,48,48,0,0,0,0,192,224,96, 96, 96 
,96 

data224,224,96,96,96,96,0,0 
dataO,0,31,63,48,48,48,48,48,48,48 
,48,63,31,0,0,0,0,192,224,0,0,0,0 
dataO,0,0,0,224,192,0,0 
datal26,195,153,161,161,153,195, 12 
6 

data56,120,199,198,198,199,120,56 
datal5,31,63,127,127,255,255,255 
data255,255,255,255,255,255,255,25 
5 

data255,255,255,127,127,63, 31,15 
data224,248,252,254,255,255,255,25 
5 

data255,255,255,254,254,252,244,24 
0 

return 

charl,4,1,"[CTRL-3][CTRL-9][CTRL-2 
][SPACE] [CTRL-0 ][CRSR-DOWN][CRSR-L 
EFT][CTRL-9][SPACE][CTRL-0][CRSR-D 
OWN][CRSR-LEFT][CTRL-9][3xSPACE][C 
TRL 0]" 

charl,13,6,"[CTRL-4][CTRL-9][3xSPA 
CE][CRSR-DOWN][CRSR-LEFT][SPACE][C 
RSR-DOWN][CRSR-LEFT][SPACE][CRSR-D 
OWN][CRSR-LEFT][SPACE][CTRL-0]" 
charl,2,20,"[CTRL-5][CTRL-9][3xSPA 
CE][CRSR-ÜP][CRSR-LEFT][SPACE][CRS 
R-UP][CRSR-LEFT][4xSPACE][CTRL-0]" 
charl,20,14,"[CTRL-6][CTRL-9][5xSP 
ACE][CTRL-0]" 


102 charl,1,10,"[CTRL-7][CTRL-9][3xSPA 
CE][CRSR-DOWN][CRSR-LEFT][SPACE][C 
RSR-DOWN][CRSR-LEFT][SPACE][CRSR-D 
OWN][CRSR-LEFT][SPACE][CRSR-DOWN][ 
CRSR-LEFT][SPACE][CRSR-DOWN][CRSR- 
LEFT] [SPACE][CTRL-0]" 

103 charl,20,l,"[CTRL-8][CTRL-9][SPACE 
][CRSR-DOWN][CRSR-LEFT][SPACE][CRS 
R-DOWN][CRSR-LEFT][SPACE][CRSR-DOW 
N][CRSR-LEFT][3xSPACE][CTRL-0]" 

104 charl,14,22,"[COM-2][CTRL-9][SPACE 
][CRSR-UP][CRSR-LEFT][SPACE][CRSR- 
ÜP] [CRSR-LEFT][SPACE][CRSR-ÜP][CRS 
R-LEFT][SPACE][CRSR-ÜP][CRSR-LEFT] 
[SPACE][CTRL-0]" 

105 charl,7,13,"[COM-3][CTRL-9][3xSPAC 
E][CRSR-UP][CRSR-LEFT][SPACE][CRSR 
-UP][CRSR-LEFT][SPACE][CRSR-ÜP][CR 
SR-LEFT][2xSPACE][CTRL-0] M 

106 charl,23,23,"[COM-4][CTRL-9][SPACE 
][CRSR-ÜP][CRSR-LEFT][SPACE][CRSR- 
UP] [CRSR-LEFT][SPACE][CRSR-UP][4xC 
RSR-LEFT][4xSPACE] [CTRL-0]" 

107 return 

108 print"[SHIFT-CLR][CTRL-2]":print"[ 
3xCRSR-DOWN][SPACE]KO":print"SLP": 
print"TMQ":print"[SPACE]NR" 

109 poke2023,5 

110 print"[HOME][SPACE]g[SPACE]h[SPACE 
]o[SPACE]s[SPACE]t-busters" 

111 print"[SPACE]MMMMMMMMMMMMMMMMM" 

112 print:print"you[SPACE]must[SPACE]c 
atch[SPACE]the[SPACE]ghost[SPACE]- 
[SPACE]A":print 

113 print"you[SPACE]are[SPACE]this[SPA 
CE]guy[SPACE]-[SPACE][SHIFT-*]":pr 
int 

114 print"if[SPACE]you[SPACE]cat ch[SPA 
CE]a[SPACE]A[SPACE]":print:print"y 
ou[SPACE]get[SPACE]10[SPACE]point s 
":print 

115 print" if [ SPACE ] you [ SPACE ] hit [ SPACE 
]a[SPACE]wall[SPACE]you[SPACE]lose 
":print:print"30[SPACE]seconds":pr 
int 

116 print"if[SPACE]the[SPACE]A[SPACE]h 
its[SPACE]a[SPACE]wall[SPACE]you[S 
PACE]gain":print:print"2[SPACE]sec 
onds": 

117 print:print"you[SPACE]get[SPACE]a[ 
SPACE]bonus-round":print:print"if[ 
SPACE]you[SPACE]have[SPACE]4 0 0[SPA 
CE]points.":print:print"[3xCRSR-RI 
GHT][CTRL-9]press[SPACE]a[SPACE]ke 
y [CTRL-0] " 

118 poke240,45:print"[3xHOME][SHIFT-CL 
R] ":return 

119 rem*** bonus *** 

120 nb=0: charl,0,20,"[SHIFT-CLR]press[ 
SPACE]fire[SPACE]to[SPACE]hit":pri 
nt:print"as[SPACE]many[SPACE]A[SPA 
CE]as[SPACE]possible" 

121 print"every[SPACE]A[SPACE]is[SPACE 
]10[SPACE]points"rprint"[CTRL-9]p 
lease[SPACE]wait [CTRL-0] ":fortd=l 
to4000 rnexttd:fortd=3272to3072step 
-1 

122 ifpeek(td)<>32thensound3,1020,1 

123 poketd,66:fork=lto50:nextkipoketd, 
32:nexttd 

124 charl,30,5,"KO":charl,29,6,"SLP":c 


109 

110 

111 

112 


113 


114 
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125 

126 


127 


128 


129 


130 


131 


132 


133 


134 


135 

136 

137 

138 


139 


140 


141 


142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 


print-out print-out print-out print-out print-out 


harl,29,7,"TMQ":charl,30,8,"NR" 
forll=lto50 

fortd=3tol0:charl,25,td,"[SPACE]": 
charl,25,td,"A":getah$:ifah$="t"th 
ens=s+l:elsel31 

ifs=>50thencharl,1,21,"you[SPACE] 
have[SPACE]an[SPACE]empty[SPACE]gu 
n":gotol37:elsel28 

sh=sh+l:forp=5tolstep-l:ifpeek (333 
7)=65thensound3,1020,5:nb=nb+l:sc= 
sc+10:gotol32 

sound3,900,1:poke3335+p,83:nextp:f 
orp=lto5:poke3335+p,32:nextp 
print"[HOME]": forpw=0tonb :print"A[ 
SPACE]";:nextpw:ifnb=>15thennb=15 
charl,25,td,"[SPACE]":nexttd:nextl 
1:gotol37 

poke3337,85:poke3336,85:poke3338,8 
5:poke3337-40,85:poke3337-41,85:po 
ke3337-39,85 

poke3337+40,85:poke3337+41,85:poke 
3337+39,85 

poke3337,32:poke3336,32:poke3338,3 
2:poke3337-40,32:poke3337-41,32:po 
ke3337-39,32 

poke3337+40,32:poke3337+41,32:poke 

3337+39,32 

gotol29 

fortd=lto5000:nexttd:gotol38 
print"[SHIFT-CLR]":print"A[SHIFT-* 
]A[SHIFT-*]A[SHIFT-*]A[SHIFT-*]A[S 
HIFT *]A[SHIFT-*]A[SHIFT-*]A[SHIFT 
*]A[SHIFT-*]A[SHIFT-*]A[SHIFT-*]A 
[SHIFT-*]A[SHIFT-*]A[SHIFT-*]A[SHI 
FT *]A[SHIFT-*]A[SHIFT-*]A[SHIFT-* 
]A[SHIFT-*]A[SHIFT-*]":print"[3xCR 
SR-DOWN]total[SPACE]score:"sc 
forsd=0toty :print"[CRSR-UP][13xCRS 
R-RIGHT]"sc+sd:soundl,2,1:nextsd 
print"[8xCRSR-D0WN][CTRL-6]VXY[SHI 
FT +][SHIFT--][COM-*][COM-K][COM-T 
][COM-K][COM-T][SPACE][COM-K][COM- 
T]VX[COM-G][COM-M][SHIFT-][COM-Q] 
[SHIFT--][COM-*]" 

print"[CTRL-7]W[SPACE]Z[COM--][COM 
PI][SPACE][COM-I][COM-@][COM-I][C 
OM @][SPACE][COM-I][COM-@]W[SPACE] 
[COM—h] [COM-] [COM-N] [COM-D] [COM-P 
I][SPACE]" 

print:print"[5xSPACE]to[SPACE]star 
t" 

f oryh=ltol0 :getah$:nextyh:getkeyah 
$:ifah$<>"[SPACE]"thenl43:else2 
restorel46:fort=12288to!2288+(27*8 
)-1:reada:ifa>-lthenpoket,a:next 
gotol82 

dataO,0,0,0,0,0,0,0,0,24,36, 66, 66, 
126,66,66 

dataO,124,66,66,124,66,66,124 
dataO,126,64,64,64,64,64,126 
dataO,124,66,66,66,66,66, 124 
dataO,126,64,64,120,64,64,126 
dataO,126,64,64,120, 64,64, 64 
dataO,126,64,64,78,66,66,126 
dataO,66,66,66,126, 66, 66, 66 
dataO,8,8,8,8,8,8,8 
dataO,16,16,16,16,16,48,96 
dataO,68, 72,80,96,80, 72, 68 
dataO,16,16,16,16,16,16,31 
dataO,126,153,153,153,153,153,153 
dataO,126,66,66,66,66,66,66 


160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 


183 

184 


185 


186 


187 


188 


189 


190 


191 

192 

193 


194 

195 

196 


dataO,126,66,66,66,66,66,126 
dataO,126, 66,66, 126, 64, 64, 64 
dataO,126,66,66,66, 74,70,127 
dataO,126,66,66,126, 68, 66, 66 
dataO,126,64,64,126,2,2,126 
dataO,126,8,8,8,8,8,8 
dataO,66,66,66,66,66,66,126 
dataO,66,66,66,66,66, 60,24 
dataO,153,153,153,153,153,126,24 
dataO,102,36,24,24, 36,102,0 
dataO,34,34,34, 62,2,2, 62 
dataO, 62,2,4,8,16, 32, 62 
dataO,126,66,66,66,66,66,126 
dataO,16,16,16,16,16,16, 16 
dataO,126,2,2,126,64, 64,126 
dataO,126,2,2,126,2,2,126 
dataO,66,66,66,126,2,2,2 
dataO,12 6,64,64,126, 2,2,12 6 
dataO,126,64,64,126,66,66,126 
dataO,126,2,2,2,2,2,2 
dataO,126,66,66,126,66,66, 12 6 
dataO,12 6,66,66,126,2,2,12 6 
restorel72:qv=t+(8*21):forio=qvtoq 
v+(10*8)-1:reada:ifa>-lthenpokeio, 
a:next 
return 

print"[SHIFT-CLR][CTRL-2][SPACE]g[ 
SPACE]h[SPACE]o[SPACE]s[SPACE]t[SP 
ACE]b[SPACE]u[SPACE]s[SPACE]t[SPAC 
E]e[SPACE]r[SPACE]s":print"[SPACE] 
UUUUUUUUUÜUUUUUÜÜUUUUUU" 
print"[CRSR-DOWN][CTRL-4][SPACE][C 
OM Z][SPACE]1988[SPACE]by[SPACE][C 
TRL 9]bitsoft [CTRL-0 ]" 
print"[2xCRSR-DOWN][COM-4]computer 
[SPACE]:[SPACE][COM-S][COM-7][SPAC 
E]commodore[SPACE][COM-7]11[CTRL-6 
]11[CTRL-8]11[COM-1]11[CTRL-3]11[C 
TRL 2][SPACE]16" 

print"[9xCRSR-DOWN][6xCRSR-RIGHT][ 
COM-P][19xCOM-A][COM-R]" 
print"[6xCRSR-RIGHT][COM-A][SPACE] 
made[SPACE]by[SPACE]h.[SPACE]staak 
s[SPACE][COM-A]" 

print"[6xCRSR-RIGHT][COM-E][19xCOM 
A] [COM-W] " 

print"[CRSR-DOWN][CTRL-9][lOxCRSR 
-RIGHT][CTRL-4]press[SPACE]space[C 
TRL 0]" 
p=p+i 

ifp=7thenp=0 

color1,6,p:charl,8,17,"made[SPACE] 
by[SPACE]h. [SPACE]staaks":soundl, 1 
00*p,5 

sound2,1000-50*p,5:charl,11,3,"[CT 

RL 9]bitsoft [CTRL-0] " 

getah$:ifah$="[SPACE]"thenreturn 

gotol91 
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Checksum Ghostbuster 
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| regel 

0 

132 

regel 

42 

142 

regel 

83 

114 

regel 

124 

163 

regel 

165 

208 

regel 

1 

241 

regel 

43 

106 

regel 

84 

206 

regel 

125 

5 

regel 

1615 

8 

regel 

2 

60 

regel 

44 

153 

regel 

85 

151 

regel 

126 

170 

regel 

167 

207 

regel 

3 

3 

regel 

45 

217 

regel 

86 

134 

regel 

127 

241 

regel 

168 

227 

regel 

4 

254 

regel 

46 

217 

regel 

87 

3 

regel 

128 

59 

regel 

169 

219 

regel 

5 

109 

regel 

47 

89 

regel 

88 

133 

regel 

129 

104 

regel 

170 

80 

regel 

6 

242 

regel 

48 

89 

regel 

89 

11 

regel 

130 

75 

regel 

171 

33 

regel 

8 

94 

regel 

49 

108 

regel 

90 

137 

regel 

131 

222 

regel 

172 

53 

regel 

9 

160 

regel 

50 

89 

regel 

91 

61 

regel 

132 

88 

regel 

173 

184 

regel 

10 

106 

regel 

51 

217 

regel 

92 

242 

regel 

133 

167 

regel 

174 

234 

regel 

11 

112 

regel 

52 

89 

regel 

93 

151 

regel 

134 

40 

regel 

175 

122 

1 regel 

12 

212 

regel 

53 

153 

regel 

94 

242 

regel 

135 

143 

regel 

176 

90 

regel 

13 

166 

regel 

54 

217 

regel 

95 

145 

regel 

136 

37 

regel 

177 

234 

regel 

14 

220 

regel 

55 

87 

regel 

96 

138 

regel 

137 

24 

regel 

178 

94 

regel 

15 

144 

regel 

56 

22 

regel 

97 

142 

regel 

138 

181 

regel 

179 

172 

regel 

16 

240 

regel 

57 

191 

regel 

98 

167 

regel 

139 

150 

regel 

180 

98 

regel 

17 

15 

regel 

58 

139 

regel 

99 

192 

regel 

140 

119 

regel 

181 

238 

regel 

18 

142 

regel 

59 

38 

regel 

100 

9 

regel 

141 

212 

regel 

182 

246 

regel 

19 

169 

regel 

60 

184 

regel 

101 

98 

regel 

142 

225 

regel 

183 

142 

regel 

20 

142 

regel 

61 

29 

regel 

102 

148 

regel 

143 

10 

regel 

184 

92 

regel 

21 

15 

regel 

62 

154 

regel 

103 

184 

regel 

144 

10 

regel 

185 

110 

regel 

22 

142 

regel 

63 

91 

regel 

104 

147 

regel 

145 

36 

regel 

186 

117 

regel 

23 

169 

regel 

64 

90 

regel 

105 

56 

regel 

146 

223 

regel 

187 

149 

regel 

24 

142 

regel 

65 

234 

regel 

106 

63 

regel 

147 

92 

regel 

188 

218 

regel 

25 

175 

regel 

66 

43 

regel 

107 

142 

regel 

148 

43 

regel 

189 

255 

regel 

26 

157 

regel 

67 

53 

regel 

108 

31 

regel 

149 

49 

regel 

190 

82 

regel 

27 

90 

regel 

68 

55 

regel 

109 

191 

regel 

150 

84 

regel 

191 

45 

1 regel 

28 

245 

regel 

69 

84 

regel 

110 

202 

regel 

151 

37 

regel 

192 

157 

1 regel 

29 

237 

regel 

70 

228 

regel 

111 

122 

regel 

152 

52 

regel 

193 

247 

regel 

30 

100 

regel 

71 

80 

regel 

112 

128 

regel 

153 

8 

regel 

194 

205 

regel 

31 

233 

regel 

72 

49 

regel 

113 

159 

regel 

154 

111 

regel 

195 

235 

regel 

32 

141 

regel 

73 

134 

regel 

114 

16 6 

regel 

155 

197 

regel 

196 

3 

regel 

33 

233 

regel 

74 

208 

regel 

115 

30 

regel 

156 

212 




regel 

34 

142 

regel 

75 

237 

regel 

116 

56 

regel 

157 

181 




regel 

35 

134 

regel 

76 

92 

regel 

117 

223 

regel 

158 

22 




regel 

36 

142 

regel 

77 

136 

regel 

118 

109 

regel 

159 

8 




regel 

37 

134 

regel 

78 

42 

regel 

119 

18 

regel 

160 

53 




regel 

38 

142 

regel 

79 

54 

regel 

120 

78 

regel 

161 

47 




regel 

39 

236 

regel 

80 

161 

regel 

121 

109 

regel 

162 

48 




regel 

40 

142 

regel 

81 

142 

regel 

122 

255 

regel 

163 

55 




regel 

41 

236 

regel 

82 

240 

regel 

123 

14 

regel 

164 

234 
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Move 



Het programma van M van der AA uit Breda is sim¬ 
pel, eenvoudig, slechts één opdracht, maar toch ver¬ 
slavend. De bedoeling is zo snel mogelijk van de lin¬ 
ker bovenhoek naar de rechter benedenhoek te ko¬ 
men. Ja, U raadt het al er zal wel meer achter zitten, 
maar dat ondervindt U pas na het intikken van deze 
listing. 


rem 

rem 


100 

110 

120 

130 


140 


150 

160 


rem ***** move ! ***** 

rem * voor c-16 & plus/4 * 
rem * joystick in port 1 * 
rem * m.van der aa breda * 
rem ********************** 
trap 70:goto 80 
résumé next 

hi=200:nm$="louis":td=65280:a=0 
color 0,3,3:colorl,2:color4,7,3:vo 
1 8 

gosub 960 
gosub 590 

1=3:ap=150:lv=l: sc=0 

def fnp(x)=3072+x+40*y:def fnq(xl) 

=3072+xl+40*yl 

print "[SHIFT-CLR][CTRL-9][SPACE]p 

unten[SPACE]-[SPACE]levens[SPACE 

]-[SPACE]score[SPACE]-[SPACE]lev 

el[SPACE]--[SPACE]"; 

y=l:forx=0to39:pokefnp(x),198:next 

x=39:fory=2to23:pokefnp(x),198:nex 
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200 


210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 


350 

360 

370 

380 


390 

400 

410 

420 

430 

440 


450 

460 

470 

480 

490 

500 

510 

520 


530 

540 

550 

560 

570 

580 

590 


600 


out print-out print-out print-out print-out 


610 


x=0:for y=2to23 rpokefnp(x),198:nex 
t 

y=24:forx=0to39:pokefnp(x),198:nex 
t 

y=int(rnd(1)*20)+4:for x= 12 to 27 

:poke fnp(x),199:next x 

x=int(rnd(1)*35)+4:for y= 3 to 18: 

poke fnp(x),199:poke fnp((y-24)),1 

99:next y 

poke 3047,241 

char ,18,0,str$(1):char ,26,0,str$ 
(sc):char ,36,0,str$(lv) 
x=l:y=2 
j=joy (1) 

if j=l then y=y-l:if y<2 then y=2 
if j=3 then x=x+l:if x>38 then x=3 
8 

if j=5 then y=y+l:if y>23 then y=2 
3 

if j=7 then x=x-l:if x<l then x=l 
poke p0,32: p0=fnp (x) 
if peek (p0)<>32 then 380 
if x=38 and y=23 then 520 
poke fnp(x),69 

xl=int(rnd(1)* 3 8)+1:yl=int(rnd(1)* 
22) +2 

if peek(fnq(xl))=32 then poke fnq( 
xl),68:poke fnq(xl)-1024,int(rnd(1 
)*127)+1 

ap=ap-l:char,7,0,str$(ap)+"[SPACE] 

n 

if ap=0then 380 
goto 240 

print"[HOME][3xCRSR-DOWN][lOxCRSR- 
RIGHT][CTRL-9][SPACE]wat[SPACE]jam 
mer[SPACE]nou...[SPACE]" 
ap=150-p:1=1-1:if l>0then 480 
for r=0to 500step 100 
for s=900to 500step -20 
sound 1,s-r,2:sound 2,(s-r)+10,2 
next s,r 

print"[CRSR-DOWN][14xCRSR-RIGHT][C 
TRL 9][SPACE]game[SPACE]over[SPACE 
] [CTRL-0 ]" 

for t=0to 999:geta$:next t 
if sc>hi then gosub 790 
goto 110 

for s=1020to 999 step-1 
sound 3,s,4 
next s 

scnclr:goto 140 

print"[HOME][3xCRSR-D0WN][12xCRSR- 

RIGHT][CTRL-9][SPACE]gehaald[SPAC 

E]!!![SPACE] [CTRL-0] " 

for r=0to 500step 100 

for s=300to 400step 20 

sound 1,s+r,5:sound 2,2*s,5 

next s,r 

lv=lv+l:sc=sc+ap:p=p+10:ap=150-p 
goto 140 

print"[SHIFT-CLR][CRSR-DOWN][3xCRS 
R-RIGHT]UCCIUCCI[SPACE]UCCCCI[SPAC 
E]UI[2xSPACE]UI[SPACE]UCCCCI[3xSPA 
CE]UCI 

print"[3xCRSR-RIGHT]B[2xSPACE]JK[2 
xSPACE]B[SPACE]B[4xSPACE]B[COM-N][ 
SPACE][COM-N][2xSPACE][COM-H][COM- 
N][SPACE]B[SPACE]UCCK[3xSPACE]B[SP 
ACE] B 

print"[3xCRSR-RIGHT]B[SPACE]UIUI[S 


620 


630 


640 


650 


660 


670 


680 


690 


700 


710 


720 


730 


740 


750 


760 

770 

780 

790 

800 

810 


820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 


PACE ] B [ SPACE ] B [ SPACE ] UI [ SPACE ] B [ SP 
ACE][COM-H][SPACE][COM-H][COM-N][S 
PACE]B[SPACE]B[SPACE]JCI[4xSPACE]B 
[SPACE]B 

print"[3xCRSR-RIGHT]B[SPACE]BJKB[S 
PACE]B[SPACE]B[SPACE]BB[SPACE]B[SP 
ACE]B[SPACE]BB[SPACE][COM-H][SPACE 
]B[SPACE]UCK[4xSPACE]B[SPACE]B 
print"[3xCRSR-RIGHT]B[SPACE]B[2xSP 
ACE]B[SPACE]B[SPACE]B[SPACE]JK[SPA 
CE]B[2xSPACE][COM-H]JK[COM-N][2xSP 
ACE]B[SPACE]B[6xSPACE]JCK 
print"[3xCRSR-RIGHT]B[SPACE]B[2xSP 
ACE]B[SPACE]B[SPACE]B[4xSPACE]B[2x 
SPACE]B[2 xSPACE]B[2xSPACE]B[SPACE] 
JCCI[3xSPACE]UCI 

print"[3xCRSR-RIGHT]JCK[2xSPACE]JC 
K[SPACE]JCCCCK[2xSPACE]JCCK[2xSPAC 
E]JCCCCK[3xSPACE]JCK 
print"UCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCI" 

print"[SPACE]hi-score[SPACE]:";hi; 
"[3xSPACE]by[SPACE]:[SPACE]";nm$ 
print"JCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCK" 

print"[CRSR-DOWN]probeer[SPACE]zo[ 
SPACE]sne1[SPACE]moge1ij k[SPACE]va 
n[SPACE]de[SPACE]linker-" 
print"[CRSR-DOWN]bovenhoek[2xSPACE 
]naar[SPACE]de[SPACE]rechteronderh 
oek[2xSPACE]te" 

print"[CRSR-DOWN]komen.hoe[SPACE]1 

anger[SPACE]je[SPACE]erover[SPACE] 

doet,hoe[SPACE]min-" 

print"[CRSR-DOWN]der[SPACE]punten[ 

SPACE]je[SPACE]krijgt[SPACE]!![SPA 

CE]bots[SPACE]vooral[SPACE]ner-" 

print"[CRSR-DOWN]gens[SPACE]tegena 

an,en[SPACE]laat[SPACE]de[SPACE]pu 

nten[SPACE]niet[SPACE]tot" 

print"[CRSR-DOWN]nul[SPACE]komen,w 

ant[SPACE]dat[SPACE]kost[SPACE]je[ 

SPACE]een[SPACE]leven ..." 

print"[CRSR-DOWN][CTRL-9][shift][S 

PACE][shift][SPACE][shift][SPACE][ 

shift][SPACE][shift] [CTRL-0] "; 

poke 4071,160 

wait 1347,1 

return 

scnclr:nm$="":a$="" 
for r= 0to 5 

print"[CTRL-9][CRSR-DOWN][13xCRSR 

-RIGHT][SPACE]hi-score[SPACE]![SPA 

CE] [CTRL-0] " 

for h=1000to 1020step 5 

sound 3,h,10:soundl,h-100,10 

next h 

next r 

print"[2xCRSR-DOWN][13xCRSR-RIGHT] 


v=12:h=14 

getkey a$:if len(a$)>l or a$="" th 
en 880 

if a$=chr$(13) then 950 

if a$=chr$(20) then nm$=left$(nm$, 

len (nm$)-1) .-goto 920 

nm$=nm$+a$ 

char ,13,14,nm$+"." 

if len (nm$)>11 then 950 

goto 880 

hi=sc:return 


































Sn 


: ■ / 


ïxïrax 


smssmz : öffxmm 


mm. 


ilisÊËIli 


w 


■I 


:ï slïl 

WSWM 


liiiil«iilill 

i m M 

sim mam mmmb&m 


: öï m ma 
jMM i 

mmn 

msmsm 


'\vv. 








MauMiS 






löryxöxixj 


1111 




IIÏIII 


s mama 


mmm : 


p¥Hg;S#S 


■mm. 


mm. 

■■ma 


Checkum Move 


>v.;.v.vv.v.£ 




::: ::S#pS"-¥Si} 

.: :ï : . : : :. 

'mmm r " 

■ '. •• :• •■• 

: ' ; $ •.. -. 5.-^5 

k * v = 


' ; v ; ; '' ; 






sülili 


liiliili 


0:next c 
1070 return 

1080 data 162,0,189,0,208,157,0,48,189, 
0,209,157,0,49,189,0,210 
1090 data 157,0,50,189,0,211,157,0,51,1 
89,0,212,157,0,52,189,0 
1100 data 213,157,0,53,232,208,217,96 
1110 data 56,124,146,254,108,56,0,56 
1120 data 195,90,60,90,126,102,60,24 
1130 data 24,102,90,165,165,90,102,24 
1140 data 16,56,84,254,238,84,56,198 
1150 data -1 


print”[SHIFT-CLR][2xCRSR-DOWN][2xC 
RSR-RIGHT]even[SPACE]geduld[SPACE] 
aub..." 

print"[CRSR-DOWN][2xCRSR-RIGHT]kar 
akterset[SPACE]wordt[SPACE]gekopie 
erd" 

read ccrpoke 1536+a,cc:a=a+l 
if cc<>96 then 980 
sys 1536:a=0 

read uc:if uc=-l then 1040 
poke 12832+a,uc:a=a+l 
goto 1010 

poke td+18,peek(td+18)and251 
poke td+19,peek(td+19)and 3 or 48 
for c=12297 to 12754 step8:poke c, 


980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 


EINDE LISTING move 


Bestellen door 
overmaking van 
ƒ 45,- op giro 
5641219 van Sa- 
lasan Amster¬ 
dam, onder ver¬ 
nieling van ‘Ami 
Exchange’. 


Cat &IKorsh Jnternational 






Quality Computer Products 


regel 

10 

139 

regel 

240 

77 

regel 

470 

27 

regel 

700 

127 

regel 

930 

182 j 

regel 

20 

205 

regel 

250 

134 

regel 

480 

29 

regel 

710 

210 

regel 

940 

41 

regel 

30 

96 

regel 

260 

243 

regel 

490 

236 

regel 

720 

92 

regel 

950 

161 

regel 

40 

254 

regel 

270 

237 

regel 

500 

213 

regel 

730 

201 

regel 

960 

17 1 

regel 

50 

43 

regel 

280 

134 

regel 

510 

64 

regel 

740 

6 6 

regel 

970 

216 

regel 

60 

105 

regel 

290 

178 

regel 

520 

114 

regel 

750 

219 

regel 

980 

147 

regel 

70 

88 

regel 

300 

41 

regel 

530 

40 

regel 

760 

38 

regel 

990 

44 

regel 

80 

54 

regel 

310 

93 

regel 

540 

92 

regel 

770 

190 

regel 

1000 

202 

regel 

90 

233 

regel 

320 

208 

regel 

550 

235 

regel 

780 

142 

regel 

1010 

118 

regel 

100 

44 

regel 

330 

21 

regel 

560 

83 

regel 

790 

108 

regel 

1020 

143 

regel 

110 

43 

regel 

340 

208 

regel 

570 

201 

regel 

800 

142 

regel 

1030 

75 

regel 

120 

181 

regel 

350 

73 

regel 

580 

30 

regel 

810 

108 

regel 

1040 

115 

regel 

130 

92 

regel 

360 

64 

regel 

590 

239 

regel 

820 

129 

regel 

1050 

44 

regel 

140 

237 

regel 

370 

31 

regel 

600 

205 

regel 

830 

144 

regel 

1060 

114 

regel 

150 

58 

regel 

380 

123 

regel 

610 

100 

regel 

840 

202 

regel 

1070 

142 

regel 

160 

112 

regel 

390 

105 

regel 

620 

90 

regel 

850 

212 

regel 

1080 

189 

regel 

170 

52 

regel 

400 

40 

regel 

630 

2 

regel 

860 

160 

regel 

1090 

123 

regel 

180 

111 

regel 

410 

14 

regel 

640 

94 

regel 

870 

4 

regel 

1100 

188 

regel 

190 

193 

regel 

420 

97 

regel 

650 

119 

regel 

880 

113 

regel 

1110 

142 

regel 

200 

57 

regel 

430 

83 

regel 

660 

109 

regel 

890 

99 

regel 

1120 

134 

regel 

210 

40 

regel 

440 

126 

regel 

670 

107 

regel 

900 

69 

regel 

1130 

179 

regel 

220 

45 

regel 

450 

86 

regel 

680 

100 

regel 

910 

63 

regel 

1140 

16 6 1 

regel 

230 

178 

regel 

460 

55 

regel 

690 

138 

regel 

920 

8 

regel 

1150 

224 1 











































































GEOS Archief 


Onder de titel GEOS INFO verzorgen Bert Venema en Peter Boncz een rubriek voor 
de gebruikers van dit populaire besturingssysteem. Lezers worden van harte uitgeno- 


GEOS-INFO 


GeoMail 



Mogelijkheden 

geoCalc 

Escel* 

Swiftcalc** 

Aantal cellen 

112 x 256 

256 x16384 

104 x 250 

Geschat aantal actuele cellen 

5000 1 

4000 

2000 

Statistische functies 

ia (4) 

ia (11) 

ja i*R'i 

Financiële functies 

ia f5) 

ia f8) 

ia (4) 

Wiskundige functies 

ja (13) 

ja (18) 

ja (3) 

ftCIdUCYCJ MUoUlUl# 1 

Selectie numerieke formats 

ja 

ja (13) 

ja 

ia (19) 

ja 

ia (3'i 

Automatisch herberekenen 

ja 

ia 

nee 

Gesplitst scherm 

h 

ja 

nee 

Grafische interface 

ia 

ia 

nee 

Positioneren (L/R/C) 

ja 

ja 

nee 

Verschillende schriftstiilen 

ia 

ia 

nee 

Knippen/plakken GEOS appl. 

ja 

niet besch. 

nee 


^ Exuel zijn qebajqei'd op oen 51. Kb Macintosh. Excel ij een handelsmerk oan Microsoft Ine. 

** -«-Uiftcolc gegevens zijn gebaseerd op de CM. Suiiftcalc is een handelsmerk uon Timeiuorks Ine. 
GeoCalc wordt gelimiteerd door diskeapociteit. de oei melde gegevens zijn gebaseerd op het gebruik van 
een 1571 diskdrive. Bij gebruik van 1531 zijn meer dan 12068 cellen beschikbaar. 

Tabel 1 


Mogelijkheden 

—-.. - 

geoFile 

PFS-File + 

Data 

Manager** 

Max. Aantal Records 

3000 

niet qespec. 

2000 

Max. Aantal velden/record. 

64 

3100 

20 

Veld grootte (in karakters) 

200 

1024 

32 

Tekst en numerieke velden 

ja 

nee 

ia 

Multipresentatie gegevens 

ja (15) 

nee 

nee 

Zoeken op meerdere gegevens 
Zoeken met "vilil-rorrW 

ja 

ia 

ja 

ja 

Zoeken en gelijk vervangen 

ja 

Jo 

nee 

nee 

nee 

Autom. sorteren bij invoer 

ja 

ja 

nee 

Willekeurige veldwijzigingen 

ja 

nee 

nee 

‘J! 0! 1'JL‘IJ? ImGi 1 

Plaatjes in records 

ja 

ja 

nee 

nee 

nee 

nee 

Knippen en plakken met GEOS 

ja 

niet besch. 

nee 


*■ PFS-File is ontworpen voor de IBM-F'C. PFS-File is een handelsmerk van Software Publ. Ine. 

W Dato Manager 2 is ontworpen voor de CM/128. Data Manager 2 is een handelsmerk van ïirnetuorks Ine. 


Tabel 2 


Dhr. Sjef Wetzels uit Hoensbroek 
vraagt of het mogelijk is om een ander 
letterfont dan BSW te gebruiken bij 
GeoFile. Helaas is dat in de huidige 
versie nog niet mogelijk, misschien in 
een volgende versie!! U dient zich nu 
te behelpen met normaal, bold en ita- 
lic schrift. Uw vraag over de checksum 
voor het programma "Geosprogram- 
maker" is in behandeling. 

Hier dan, zij het enigszins met vertra¬ 
ging, een antwoord op de brief van de 
heer Tino van Dam te Rijswijk. Hij 
vraagt of het mogelijk is om, met Geo- 
Publish, rechtstreeks plaatjes in een 
dokument in te lezen. Plaatjes uit 
Newsroom, Printshop en Printmaster 
kunt u alleen inlezen door tussen¬ 
komst van de Graphics Grabber. Dit 
programma wordt geleverd bij het 
pakket DeskPack. Of het echter is uit¬ 
gesloten om op een andere manier 
plaatjes te gebruiken, durf ik niet te 
beweren. Misschien is er een slimme¬ 
rik die zo’n utility heeft geschreven? 
We hopen alleen dat hij/zij dan rea¬ 
geert op onze oproep uit het vorige 
nummer. 

De werkwijze om plaatjes in te lezen 
is vrij simpel. U kunt ze opslaan als 
een photo-scrap. Vervolgens wordt 
het benodigde plaatje vergroot, ver¬ 
kleind of op normale grootte ingelezen 
in GeoPublish. 

Er bereiken ons nog wel eens brieven 
of we krijgen een telefoontje betreffen¬ 
de niet goed werkende programma’s. 
Vaak ligtde oorzaak in het feit dat een 
installatieproces niet helemaal goed 
verlopen is. Het komt ook wel eens 
voor dat een diskette gewoon niet 
goed werkt. Controleer altijd eerst of 
het installeren goed is verlopen en of 
alle benodigde files op de juiste plaats 
binnen de DeskTop zijn geplaatst. 
Voor echte software-problemen dient 
u zich altijd te wenden tot uw leveran¬ 
cier. Deze inforubriek is bedoeld om 
kleine onduidelijkheden uit de wereld 
te helpen en niet om problemen die 
thuishoren bij de leverancier te verhel¬ 
pen. 


Vergelijkend onderzoek. 

Nu de GEOS-applicaties zich een 
beetje gaan verspreiden binnen de 
Benelux hebben we een aantal moge¬ 
lijkheden van een paar gelijkwaardige 
software-produkten naast elkaar ge¬ 
legd. U zult bemerken dat u met een 
Commodore 64/128 en één van de 
vergeleken GEOS-applicaties zeer 
acceptabele resultaten kunt bereiken. 
Deze mogelijkheden stellen u in staat 
rapporten te vervaardigen die norma¬ 


liter alleen met veel duurdere machi¬ 
nes te verwezenlijken zijn. Deze keer 
hebben we GeoCalc en GeoFile ver¬ 
geleken met gerenormeerde applica¬ 
ties, waarvan hierna de resultaten zijn 
weergegeven in resp. tabel 1 en tabel 
2 . 
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GEOS Archief 


Europese primeur 

Op de kortgeleden gehouden Com¬ 
puter Info beurs van 11 en 12 no¬ 
vember vond de Europese intro¬ 
ductie van de nieuwste versie van 
Geos plaats. Net voordat de RAI 
jaar deuren opende voor de dui¬ 
zenden bezoekers, werden de pak¬ 
ketten van Schiphol gehaald. Offi¬ 
cieel is het totale pakket vanaf ja¬ 
nuari 1989 te koop, de winkelprijs 
wordt ƒ 159,-. 

De echte Geos-freaks kwamen in grote getale om de sterk verbeterde versie 
aan te schaffen. Ook werden op de stand door medewerkers van de Geos- 
info rubriek vragen beantwoord en problemen van gebruikers behandeld. 



Vragen en antwoorden 
over GeoPublish 

° Hoe groot kunnen letterfonts zijn in 
GeoPublish? 

Letterfonts die worden gebruikt kun¬ 
nen variëren van 4 points tot maxi¬ 
maal 192 points. 

° Is het mogelijk om tekst zowel hori¬ 
zontaal als verticaal in te voegen in 
GeoPublish? 

Ja, in het "text"attributen-icoon be¬ 
vindt zich de optie "oriëntation". Deze 
keuze biedt de mogelijkheid om tekst 
normaal, omhoog of omlaag op een 
pagina te positioneren. 

° Een tekst gemaakt met GeoWrite 
2.0 en vervolgens ingelezen in Geo¬ 
Publish kan niet meer met Writers 
Workshop worden geopend, hoe 
kan dit? 

Wanneer een dokument ingelezen 
wordt in GeoPublish wordt deze auto¬ 
matisch geconverteerd naar GeoWri¬ 
te 2.1. In dit geval is het verstandig om 
altijd met een kopie van het orginele 
tekstbestand te werken. Zodoende 


kunnen later eventuele wijzigingen 
worden aangebracht in de orginele 
versie. 

° Op welke manier kan het effect wor¬ 
den bereikt van een witte tekst op 
een zwarte achtergrond in GeoPu¬ 
blish? 

Selecteer de "rectangle"-optie in de 
"page graphics" modus. Klik vervol¬ 
gens op de "attribute box". Kies een 
zwart patroon en de transparantmo- 
dus. Na het openen van de rechthoek 
selecteert u de tekst-optie. Gebruik nu 


het witte patroon uit de "attribute box". 
Plaats de tekst over de zwarte recht¬ 
hoek en deze verschijnt als witte tekst 
op een zwarte ondergrond. Om het ef¬ 
fect te kunnen bekijken, is het mis¬ 
schien noodzakelijk de "redraw" func¬ 
tie te activeren. 



Nog even dit... 

In nummer 7 van Commodore Info zijn, in het artikel over GEOS 2.0, de twee¬ 
de generatie, abusievelijk de schermafbeeldingen achterwege gebleven. Aan¬ 
gezien deze plaatjes in het artikel worden genoemd, plaatsen we ze hierbij als¬ 
nog. 


file icon 



disk 

drive 

icons 


Afb. 1 De GEOS 2.0 Desktop 


Non Geos 
BASIC 
Asse. nbly 
Data 
System 
Desk Acc 
Application 
Appl Data 
Font 


Printer CZ3 
I—I 

Input Deoice |—| 
Disk Deoice j___j 
System Boot I I 

I—| 

Temporary 
Auto Exec 
Input 128 
Pad Background 
Pad Foreground 


EXIT 

SAUE 

RECQUER 

C0L0R OFF 
DÊFAULT 1 
DEFAULT 2 
DEFAUIT 3 


Afb. 2 De Pad Co lor mgr 


* BSN 
California 

" CÖV'y' 

Dtuinelle 
Roma 
Uniuersity 
Commodore 




Afb. 3 Verschillende letterfonts 


| geos I file j dief 

Options 
Accept Word 
Accept All 
Replace Word 
Replace AU 


jmispeH 




CeoDïctionary 


A 

B 

C 

D 

E 

F 

C 

H 

1 

J 

K 

L 

M 

N 

0 

P 

iSL 

R 

S 

Jj 

U 

_Uj 

w 

X 

V 

Z 




aardvark 

aardvarks 

Aaron 

aback 

abacus 

abalone 

abandon 


Festus Memo 132 


'Bul I nevel r*!TH7HTl aiofdj," Festus urrote. Ihe memo 
continued: "lf you can't read my uirittiny. you dont 
deserve qood spelling. Figger it out on yer ouin.' N 
Frank sighed and ran the atuful thing through qeoSpell. 

Afb. 4 GeoSpell, de spellingchecker 


Drauuing 







r VW, 

aaTra’ 

- a 9 a oTvr 
jro ynanana 
ünanaria1»"br 

•VoVSWe 

a larara"graiar 

SwtfSw? 

önananB ian» ~ 

r®sia~ 

«Van'' 


Afb. 5 Effecten in GeoPaint 



Current Pattern Indicator pointer Page Map 

Afb. 6 Veelzijdigheid van GeoPaint 


Drawing 

Window 


Status 

Box 
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Triple 128 


In alweer de derde aflevering van de Cursus Machinetaalprogrammeren in GEOS be¬ 
handelt Peter Boncz de Dialog Boxes, en enkele Disk- en Text-Utilities van GEOS. Dit 
gebeurt aan de hand van een bespreking van het eerste Public Domain GEOS pro¬ 
gramma van Commodore Info. Dit programma, de QuickTop, is de listing van deze 
maand. 


GEOS Cursus machinetaal: deel 3 


een echte applicatie geLIST 

B ij deze derde aflevering staat de GEOS-applicatie QuickTop geLIST. Dit 
programma is de eerste serieuze GEOS-applicatie uit deze cursus. De 
QuickTop is een vervangende Desktop voor GEOS VI.2 en VI.3. De belang¬ 
rijkste kenmerken van de QuickTop zijn: hij is snel, en hij is klein. Het pro¬ 
gramma is bedoeld om voor een snelle doorstroming naar de applicaties 
(zoals Geowrite) te zorgen. Het kleine formaat zorgt er bovendien voor dat 
er op Work-Disk’s meer ruimte ontstaat voor gebruikersfiles (een berucht 
punt van GEOS). 


DialogBox Tabel 

.byte /$80 OR patroon .byte /$00 OR patroon 

^$80 voor default afmetingen en .byte bovenkant (0-199) 

default plaats op het scherm. .byte onderkant (0-199) 

.word linkerkant (0-319) 

.word rechterkant (0-319) 

.byte DB commando 

.byte x-positie in bytes (in stappen van 8 puntjes dus!) 

.byte y-positie in puntjes. 

.byte DB commando 


.byte x-positie 
.byte y-positie 
etc. 

DialogBox-Tabel afgesloten met: 
.byte ^$00 


Het patroon in de eerste byte van 
de DialogBox-Tabel wordt gebruikt 
om de schaduw schuin onder de DB 
mee op te vullen. Een patroon van 
0 betekent dat er geen schaduw is. 


Illustratie I 


Natuurlijk is de QuickTop geen vol¬ 
waardige vervanger van de Desk 
Top. Voor een heleboel functies, zo¬ 
als bijvoorbeeld het formateren van 
een schijf, zult U nog steeds bij de 
Desktop moeten zijn. Alle program¬ 
meertechnieken die in de QuickTop 
verwerkt zijn, zullen in dit artikel be¬ 
sproken worden. 

de Dialog Box 

Dialog Boxes ofwel DB’s (zo zal ik ze 
in het vervolg noemen) zijn een veel¬ 
gebruikt ingrediënt in GEOS applica¬ 
ties. Maar wat is een Dialog Box? Een 
DB is een keuzevenster dat in bepaal¬ 
de situaties over het in uitvoering zijn¬ 
de programma komt. Het programma 
QuickTop gebruikt ook Dialog Boxes. 
In machinetaal worden DB’s geheel in 
GEOS-stijl geproduceerd: Er is een 
routine DoDialogBox ($c256) die een 
dialog-box op het scherm zet. Voor 
het opruimen van de DB is er de rou¬ 
tine RstrFrmDialogBox. Voordat jsr 
DoDialogBox gedaan kan worden, 
moet in r0 ($0002 en $0003) de poin¬ 
ter naar de Dialog Box Tabel zijn neer¬ 
gezet. Deze Dialog Box Tabel bepaalt 
het gezicht en de functie van de Dia¬ 
log Box. 

DB Tabel 

In Illustratie 1 ziet U een schema van 
de DB tabel. De tabel begint met de 
gegevens over de grootte en de plaats 
van de DB op het scherm. Deze gege¬ 
vens nemen ofwel 1 byte ofwel 7 by¬ 


tes in beslag. Als in de eerste byte bit 
7 aan is, dan worden de standaard af¬ 
metingen van de Dialog Box gebruikt. 
En als bit 7 uit is, volgen 2 BYTES 
voor de onder- en bovenkant, en ver¬ 
volgens 2 WORDS voor de linker en 
rechterkant. Nog van belang voor die 
eerste byte is het feit dat in bit 6 tot bit 
0 het patroonnummer staat. Met dit 
patroonnummer wordt de schaduw 
schuin onder de DB gevuld. 

DB Icons 

Wat er verder volgt in de Dialog Box 
Tabel hangt volkomen af, van wat de 
gebruiker ermee wil. Nu komen name¬ 
lijk de DB commando’s (net zoveel als 
men wil), uiteindelijk afgesloten met 
een 0. Een overzicht van alle te ge¬ 
bruiken DB commando’s staat in illus¬ 
tratie 2. Er zijn twee soorten DB com¬ 
mando’s: de Icons en de ‘echte’ com¬ 


mando’s. Een Icon brengt een Icon op 
de aangewezen positie in de DB. Dit 
Icon is dan actief, dit betekent dat als 
het aangeklikt wordt de DB opgerold 
wordt en de computer naar het punt 
achter de jsr DoDiagBox terugkeert. 
Verder gebeurt er dan niets, behalve 
dat in $0002 het icon-nummer, dat de 
‘quit’ veroorzaakte, gezet wordt. Het is 
dan aan de programmeur om een ac¬ 
tie te verzinnen (die natuurlijk in ver¬ 
band staat met het achtergelaten 
icon-nummer). 

DB commando’s 

De ‘echte’ commando’s verzorgen al¬ 
lerhande diensten voor de program¬ 
meur: 

° DBTXTSTR neemt 5 bytes in be¬ 
slag in de de Dialog Box Tabel. Al¬ 
lereerst het commandonummer (11) 


Commodore Info 8/88 


39 





Triple 128 


DialogBax ocmnandos 


Icons 


OK 

.byte £1 

Cancel 

.byte j^xpos in bytes 
.byte j^ypos in pixels 
.byte £2 

Yes 

.byte £xpos in bytes 
.byte j^ypos in pixels 
.byte £3 

No 

.byte T^xpos in bytes 
.byte £ypos in pixels 
.byte £A 

Open 

.byte j^xpos in bytes 
.byte /ypos in pixels 
.byte £5 

Disk 

.byte ^xpos in bytes 
.byte £ypos in pixels 
.byte £6 

Ccnmando's 

.byte ^xpos in bytes 
.byte /ypos in pixels 


EBTXTSTR .byte £11 

.byte fxpos in pixels 
.byte j^ypos in pixels 
.word pointer naar tekst 
DBVARSTR .byte £12 

.byte £xpos in pixels 
.byte j^ypos in pixels 


DBSYSOPV 

EBGETFUES 


.byte registemummer. 

DBGETSTR .byte £13 

.byte /xpos in pixels 
.byte ^ypos in pixels 
.byte registemunnmer. 

.byte max. aantal karakters, 
.byte ^14 
.byte ^16 
.byte ^x-zijmarge in bytes 
.byte /y-bovenmarge in pixels 
(In R7L staat het file-type, in R5 een 
pointer waar de geselecteerde filenaam 
moet komen te staan, in R10 een variable 
om restricties toe te passen.) 

DBUSRICON .byte £18 

.byte #xpos in pixels 
.byte £ypos in pixels 
.word pointer Icon-Tabel 
Ioon-Tabel 

.word pointer grafische data 
.byte 0 
.byte 0 

.byte ^breedte icon in bytes 
.byte ^hooogte icon in pixels 
.word pointer uitvoerroutine 
als het icon geCLICKd wordt. 


Illustratie 2 


en de X en Y positie in de DB. 
Daarna de pointer naar een af te 
drukken tekst. 

° DBVARSTR drukt ook een tekst af, 
maar de pointer wijst niet direct 
naar een tekst, maar naar een 
adres in de Zero Page ($0000 tot 
$00ff), waarin die pointer wel staat. 

0 DBGETSTR heeft een soortgelijke 
functie als INPUT in BASIC. Na het 
commandonummer (13) en de X en 
Y postitie, komt het registemummer 
met daarin de pointer naar de 


GEOS FILE TYPES 

0 

NOT GEOS 

1 

BASIC 

2 

ASSEMBLY 

3 

DATA 

4 

SYSTEM 

5 

DESK ACC 

6 

APPLICATION 

7 

APPL DATA 

8 

FONT 

9 

PRINTER 

10 

INPUT DEVICE 

11 

DISK DEVICE 

12 

SYSTEM BOOT 

13 

TEMPORARY 

14 

AUTO EXEC 

15 

NUM FILE TYPES 


Illustratie 3 


plaats waar de inputstring komt. Dit 
registemummer is, net als bij 
DBVARSTR het adres in de Zero 
Page van het register. Als hekke- 
sluiter komt tenslotte nog een byte 
met het maximum aantal karakters. 

° DBSYSOPV is een buitenbeentje, 
want het neemt maar 1 byte in be¬ 
slag (zijn eigen nummer: 14). Deze 
functie zorgt ervoor dat GEOS ook 
uit de DB quit wanneer er geclicked 
wordt als de muis NIET op een Icon 
staat. 

° DBGETFILES is het krachtigste DB 
commando wat er bestaat. Het 
maakt een venster in de DB, waarin 
files komen te staan. Hieruit kan 
met de muis een keuze gemaakt 
worden. Als dit gedaan is (de geko¬ 
zen naam is dan invers) wordt die 
naam in een adres gezet. Dit adres 
moet vantevoren in r5 gezet wor¬ 
den. In r7l staat het file- type van de 
te LISTen files, (zie illustratie 3). 
Het register 10 (MO) kan gebruikt 
worden om onderscheid te maken 
tusen verschillende applicatie-data 
files (bijvoorbeeld die van Geopaint 
en Geowrite). Normaal wordt r10 
met nullen gevuld. Doordat er zo¬ 
veel gebruik gemaakt wordt van va¬ 
riabelen van buiten neemt DBGET¬ 
FILES in de Dialog Box Tabel maar 
3 bytes in beslag: het nummer (dit 
is 16), de zijmarge in bytes, en de 
bovenmarge in pixels. Laatsge- 
noemde gegevens slaan op het file- 
venster. Dit venster heeft overigens 
een vaste grootte, let er wel op dat 
uw DB groot genoeg is als U van 


DBGETFILES gebruik maakt! 

° DBUSRICON is het laatste DB 
commado dat ik bespreek (er zijn er 
nog wel meer, maar die zijn nogal 
vergezocht voor deze cursus). 
DBUSRICON biedt de program¬ 
meur de mogelijkheid zelf een Icon 
te ontwerpen. Het bestaat uit 5 by¬ 
tes in de Dialog Box Tabel. De laat¬ 
ste 2 bevatten de pointer naar een 
Icon Tabel. 

Voorbeeld 

Laten we nu eens naar de LISTING 
van deze maand kijken. De QuickTop 
maakt vrij veel gebruik van DB’s. Ik 
ben er in geslaagd om alle DB’s die 
QuickTop gebruikt, in een basis-DB te 
zetten. Kijk maar eens in $16dc, daar 
staat deze DB-tabel. Omdat de losse 
bytes U waarschijnlijk weinig zullen 
zeggen, loop ik nu byte voor byte door 
de DB-tabel heen. De eerste byte is 
een *$00, dat betekent dat bit 7 uit is, 
en dat het schaduw-patroon ook nul is 
(er is dus geen schaduw). Omdat bit 7 
uit is volgen 6 bytes met daarin de co¬ 
ördinaten van de DB: *$64 (Y1 = 100), 
*$c7 (Y2 = 199), *$1e, *$00 (XI = 
30), *$ef, *$00 (X2 = 239). Dan ko¬ 
men nu de commando’s: *$0c (dit is 
12, dus DBVARSTR). Er komt dus 
een tekst op *$86 (=134) puntjes van 
de linkerkant, en *$0a (=10) puntjes 
van de bovenkant. Het adres van 
deze tekst staat in *$14 in de Zero 
Page (dus in $14 en $15). Het gaat 
verder met het volgende commando : 
*$05 (Open), *$12, *$28, daarna 
*$02 (Cancel), *$12, *$3c, en *$06 
(Disk) ,*$12, *$50, en last but not le¬ 
ast *$10 (DBGETFILES). Het file- 
venster staat *$08 bij *$08 puntjes uit 
de kant. De Dia ogBox Tabel wordt be¬ 
ëindigd met een *$00. 


prog 

. ink 

.output 

QUICKTOP 

.header 

SamSeqHdr.rel 

. seq 


.psect 

$1400 

.ramsect 

$2000 

prog.rel 



Illustratie 5 


Resumerend kunnen we vaststellen 
dat de Quictop steeds DB’s gebruikt 
met daarin: 

0 een Open-lcon. 
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DIALOGBOX-, TEKST- en DISKROUTINES 


naam routine 

adres 

variabelen in 

var. uit 

vernietigd 

DoDlgBox 

$c256 

r0 -pointer naar DialogBox Tabel. 


r0-r4,a,x,y 

RstrFrmDialog 

$c2bf 

geen. 


r0~rl4,a,x,y 

PutString 

$cl48 

r0 -pointer naar string. 


rOL,r2-rlOL, 



rlH-y pos(0-199), ril -x pos(0-319) 


a,x,y. 

i PutString 

$clae 

.word x pos (0-319) 


R)l,r2-r!0L, 



.byte y pos (0-199) 

<d.e string>+^$00 


a,x,y. 

PutDecimal 

$cl84 

a -bit 7: 1 getal rechts van x pos 

rlH-ypos 

r2-rl3,r0,a. 



0 getal links van x pos 

na getal 

x,y 



bit 6: 1 geen nullen aan begin 

(0-199) 




0 nullen aan het begin 

rll-xpos 




rOL-highbyte getal, rOH lowbyte 

na getal 




rlH-y pos(0-100), ril -x pos(0-319) 

(0-319) 


GetString 

$clba 

r0 -pointer adres voor inputstring 
rlH-y pos(0-199), ril -x pos(0-319) 
r2L-max. aantal karakters,rlL = $00 
$0035 + $0036 leftmargin (0-319) 
$0037 + $0038 rightrnargin (0-319) 
$84a3 - hierin pointer waarnaar na 
gesprongen wordt (KeyVector). 

$848b - $00, $848c = $00 (geen SFV) 


r0-rl3,a,x,y 

InitForIO 

$c25c 

geen. 


a 

DoneWithIO 

$c25f 

geen. 


a 

PurgeTurbo 

$c235 

$8489 Curdrive (devicenummer) 8of9 
$8492 (device 8) of $8492 (device9) 
heet Turboflags. Bit 7 aan als de 
turbo code in de RAM v.d. drive is. 


a,x,y,r0-r3 



Bit 6 aan als de applicatie turbo 
gebruikt. 



EnterTurbo 

$c214 

zie PurgeTurbo 


a,y 

ExitTurbo 

$c232 

geen. 


CaIcBlocksFree 

$c.ldb 

r5 -point naar CurDirHead in $8200, 

r4- aan- 

£,y 



dus r5L = $00 t r5H = $82. 

tal blokken 

FindFTypes 

$c23b 

r6 -point naar buffer waar de namen 

lijst 

a,y,r0-r21. 



komen. r71 -Geos File Type. r7H - 

met 

r4,r6 



Max. aantal namen. rlO-normaliter 0 

namen 



omschrijving 

zet een DB op. 
doe DB weer weg. 

print een 
string. 
idem. 


print een 
getal van 
2 bytes. 


string in- 
putroutine 


interrupts uit 
interrupts aan 
Turbo Code 
niet meer aan¬ 
wezig in het 
geheugen v.d. 
drive. 

Turbo weer aan 
Turbo uit. 
Bereken aantal 
vrije blokken. 
Geeft een lijst 
met files van 
een bepaald type 


° een Cancel-lcon. 

° een Disk-lcon. 

0 een tekst (variabel). 

0 een venster om files mee te kiezen. 

Hoewel al de nieuwe gegevens U 
mischien een beetje doen duizelen is 
het toch zo, dat DB’s in GEOS weer 
heel makkelijk te programmeren zijn 
(net als bijvoorbeeld menu’s). Weer 
neemt GEOS de programmeur al het 
vuile werk uit handen: het maken van 
een DB, het redden van de HIRES on¬ 
der de DB, het plaatsen van de icons, 
kijken of die ingedrukt worden etc.. In 
illustratie 4 vindt U een schema met 
daarin onder andere de besproken DB 
routines. Daarnaast staan in dat sche¬ 
ma een aantal Tekst- en Diskroutines. 

Tekstroutines 

De PutString-routine zet een tekst op 
het scherm. Dit is een tekstroutine die 


in de QuickTop vrij vaak gebruikt 
wordt, bijvoorbeeld in $14b9. Aller¬ 
eerst wordt in rO de pointer naar de de 
tekst gezet. In dit geval is dat $1770. 
Dus $02 krijgt de waarde ^$70, en $03 
de waarde *$17. De Y-waarde (0-199) 
waar de tekst moet komen, wordt in 
rl H ($05) gezet, de X-waarde (0-319) 
in rl 2. Dit is ook allemaal te zien on¬ 
der het kopje ‘variabelen in’ in iil. 4. En 
nadat al deze registers van een goe¬ 
de waarde zijn voorzien, kan er naar 
PutString gesprongen worden. Het 
verschijnsel van de Inline Call is de 
vorige keer al aan de orde gekomen. 
Er is ook een Inline-versie van Putst- 

ring: i_PutString. De Quicktop maakt 

daar veel gebruik van, bijvoorbeeld in 
$14d0. 

Hoewel de schema’s met de routines 
vrij duidelijk zijn, zal ik ook nog een 
voorbeeld geven met PutDecimal. 
QuickTop gebruikt deze routine o.a. 


om het aantal vrije blokken op disk te 
printen. Dit gebeurt in $14ed. In r0 
staat het te printen getal. Evenals bij 
PutString bevatten rl H en rl 2 de Y- en 
X-coordinaat. Maar nu heeft de ma- 
chinetaalvariabele a (de accu) bij Put¬ 
Decimal nog een bijzondere functie, 
deze betreft het uiterlijk van het af te 
drukken getal (zie ill. 4). In de Quick- 
Top moet het getal rechts van de X co¬ 
ördinaat afgedrukt worden (het is 
geen staatje), en er hoeven geen nul¬ 
len aan het begin. Dat betekent, dat 
zowel bit 7 als bit 6 aan moeten. De 
accu heeft dus de waarde 2 tot de 
macht 7 plus 2 tot de macht 6. 
(=128+64 =192=$c0). In $1501 krijgt a 
inderdaad de waarde $c0. Daarna kan 
jsr PutDecimal gedaan worden. 

DiskRoutines 

De QuickTop maakt gebruik van een 
aantal low-level diskroutines. Low-le- 
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1000 openl5,8,15:open5,8,5, 'V":tt=18: 
ss=l 

1010 print^l5,"b-r:";5;0;tt;ss:d=0: 
gosubll90 

1030 fora=0to7:b$="":c=0:d=a*32+5+c 
1040 gosut>1200:ifb=160thenl070 
1050 b$=b$+chr$(b):c=c+l:ifc=16thenl070 
1060 gotol040 

1070 ifb$="geos kemal"thenll00 
1080 nexta:iftn=Othenprint"Er is iets 
mis.":gotoll80 
1090 tt=tn:ss=ts:gotol010 
1100 d=a*32+3:gosubll90:print^l5,"b-r:" 


;5;0?tn;ts 

1120 d=4:gosubll90:a=0 
1130 print/15,"b-r:";5;0;tn;ts 
1140 t=tn:s=ts:d=0:gosubll90 
1150 a=a+l:ifa<>14thenll30 
1160 d=183:gosubl210:print^5,"quicktop"; 
1170 print/15,"u2:";5;0;t;s 
1180 close5,8,5:closel5,8,15:end 
1190 gosubl200:tn=b:gosubl200:ts=b: 
return 

1200 gosubl210:get^5,a$:b=asc(a$+ 
chr$ (0)) :retum 

1210 print^l5,"b-p:";5;d;:d=d+l:retum 


ne letters door hoofdletters vervan¬ 
gen moeten worden. Als dit alle¬ 
maal gebeurd is, laadt en RUNt U 
het programma ‘GEOS PROGRAM¬ 
MAKER’ (uit de eerste aflevering). 
U zult dan een naam en een datum, 
etc. moeten intikken. Het enige wat 
echt van belang is, dat is de adres¬ 
sering: 

beginadres NU? 5120 
eindadres NU? 6001 
laadadres? 5120 


Listing InstaII Kernal 


vel routines voeren een betrekkelijk 
eenvoudige handeling uit en nemen 
de GEOS-programmeur (relatief) wei¬ 
nig werk uit handen. De gebruikte rou¬ 
tines zijn: 

-InitForlO. Deze routine schakelt alle 
GEOS-interrupts uit. 

-DoneWithIO. Doet het omgekeerde 
als InitForlO: alles weer aan. 
-ExitTurbo. Haalt de Turbo-Code uit 
het geheugen van de Drive. 
-PurgeTurbo. Zet de Turbo-Code in 
de drive uit. 

-EnterTurbo. Zet de Turbo-Code 
weer aan. 

De listing 

In deze cursus wordt ten aanzien van 
de listings een ‘twee- sporenbeleid’ 
(zoals dat in Den Haag heet) gevolgd: 
zowel de mensen die vanuit GEOS via 
de GeoProgrammer programmeren, 
als diegenen die het met een gewone 
assembler of zelfs een monitor moe¬ 
ten stellen, komen aan hun trekken. 
De listings moeten daarom als volgt 
gelezen worden: 

0 De mensen met een GeoProgram¬ 
mer tikken steeds alles binnen de 
twee dunne lijnen in. Deze lijnen 
worden soms onderbroken door in¬ 
springende namen; ook deze moe¬ 
ten ingetikt worden. Van alles wat 
voor of achter de dunne lijnen staat 
moeten zij zich niets aan trekken. 
De listing wordt in GeoWrite inge¬ 
tikt. Noem de Geowrite-file bijvoor¬ 
beeld "prog". Als fileheader is heel 
goed de SamSeqHdr te gebruiken. 
Daarin moet dan wel de naam 
"StartProg" vervangen worden door 
"INITROUTINE". De ".ink" file die 
de beide files verbindt (d.m.v. de 
Geoünker) staat in illustratie 5. Om 
het geheel werkend te krijgen moe¬ 
ten eerst "prog" en "SamSeqHdr" 
door de GeoAssembler gehaald 
worden. Tenslotte worden deze bei¬ 
de files verbonden door de GeoLin- 
ker met de "prog.ink" file te runnen. 


Diegenen, die geen GeoAssembler 
hebben, moeten alle inspringende 
namen negeren. Op alle andere 
punten waar deze namen voorko¬ 
men (in bijvoorbeeld spronginstruc- 
ties), moeten ze door het echte 
adres vervangen worden. Het echte 
adres staat voor het gemak al ach¬ 
ter de rechter dunne lijn klaar. Links 
van de linkerlijn staat (ook voor het 
gemak) het adres waar men, als het 
goed is!, moet zijn. Verder dienen 
alle GeoAssembler codes (zoals 
LoadW, .byte etc) op de in illustatie 
6 aangegeven wijze vertaald te wor¬ 
den. Bovendien moet men er nog 
aan denken dat in alle teksten de 
hoofdletters door kleine en de klei- 


startadres? 5120 

Het programma wordt dan op disk ge¬ 
zet, en kan vanuit GEOS gestart wor¬ 
den. 

Install-Kernal 

Normaal komt men bij het opstarten 
van GEOS in de Desktop. Pas daarna 
kan de QuickTop gestart worden. Er is 
dan dus bepaald geen sprake van tijd¬ 
besparing. Het is echter ook mogelijk 
om direct in de QuickTop te starten. 
Hiertoe dient de QuickTop op de start- 
disk gezet te worden. Bovendien moet 
dan het programmaatje Install- Kern¬ 
al, met de startdisk in de drive ge- 


te vertalen 
geoassembler macro's 


LoadB (bestemming), (waarde[0 «.255]) 
lda ■Hvalue 
sta $bestemming 

LoadW (bestemming),(waarde[0..65535]) 
lda #LowByte(waarde) 
sta $bestemming 
lda ttHighByte (waarde) 
sta $bestemming+l 

word (waarde[0..65535]) 

LowByte(waarde) 

HighByte(waarde) 


byte (waarde[0..255]) 


waarde 


eventueel meer 
dere waarden. 


Illustratie 6 
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Listing Quictop 1.2 


|.pSGCt 
INITROUTIHE: 


1400 

1403 
1406 
lus__l: 
1408 
140b 
1413 
1415 
1417 
1419 
1.41b 
14 ld 
141f 
1422 
1425 
1427 
1429 


j sr NewDisk 
j sr Mouseüp 

ldx «0a 


stx hulpregister 

LoadW r 6, DATABLOK 

stx $10 

lda «01 

sta $11 

lda «00 

sta $16 

sta $17 

j sr FindFTypes 

lda DATABLOK 

cmp «00 

beq geen_driver 

jsr GetFile 


geen driver: 


142c 

142e 

1431 

1433 

1435 

1438 


ldx 

ldy 

cpy 

bne 

jsr 

ldy 


«09 

hulpregister 

«09 

lus_l 

INSTPRINTER 

«00 


lus 2: 


$clel 

$cl8a 


$175e 

$175f 


$c23b 

$175f 

$142c 

$c208 


$175e 

$1408 

$1683 


143a 

143d 

1440 

1441 
1443 
1445 
1447 
144a 
144d 
1450 
1453 
145b 
145d 
1460 
1463 
1466 


lda 

sta 

iny 

cpy 

bne 

lda 

jsr 

jsr 


QuickTopTxt,y$16fd 
$ccdb,y 


«08 
lus_2 
«02 

SelectPattem$c 139 
i_Rectangle |$cl9f 
.byte «00,«c7,«00 
.byte «00,«3f,«01 
LoadW r 0,MENU_T ABLE$16 9 7 
lda «00 
jsr DoMenu 
lda $8489 
j sr SetDevice 

j sr OpenDisk 


14b4 
14b 9 
14cl 
14c5 
14c9 
14cd 
14d0 
14d3 
14d6 
14e2 
14ea 
14ed 
14f 5 
14f 9 
14f 4 
1501 
1503 
1506 
1509 
150c 
1513 
1517 
151c 
1520 
1524 
1528 
152a 
152d 
1530 
1533 
1538 
153b 
153d 
153f 
1542 
1545 
154a 


$1770 


$cl48 

$clae 


$cl84 

$clae 


.byte 'Name',«00 
LoadW r0,NAMETXT 
LoadB rlH,«24 
LoadB rl2L,«90 
LoadB rl2K,«00 
j sr PutString 

j sr i_PutString 

.byte «50, «00, «2e 
.byte 'Blocks Pree',«00 
LoadW r5,CurDirHead | $8200 
j sr CalcBlocksFree$cldb 
LoadW r0,r3 
LoadB rlH,«2e 
LoadB rl2L,«90 
LoadB rl2H,«00 
lda «c0 
j sr PutDecimal 
jsr i_PutString 
.byte «50,«00,«38 
.byte ' Device', «00 
LoadB r0H,«00 
LoadB rOL,$8489 
LoadB rlH,«38 
LoadB rl2L,«90 
LoadB rl2H,«00 
lda «c0 
j sr PutDecimal 
j sr i_Pu tString 
.byte «50,«00,«42 
.byte 'Type',«00 
lda $848b 
cmp «ff 
bne not_geos 
j sr i_PutString 
.byte «90,«00,«42 
.byte 1 GEOS' ,«00 
jmp wel geos 


15ae 

15bl 

15b4 

15b6 

15b8 

15ba 

15bc 

15bf 


j sr DoDialogBox 
lda $851d 
cmp «02 
beq choicejcancel 
cmp ^$05 
beq choice_open 
jsr CHANGEDEVICE 

jmp REMAKEDIAGBOX 


choice open: 


15c2 

15ca 

15ce 

15dl 

15d3 

15d5 


LoadW r 6, DATABLOK 
LoadB r0L,«00 
lda DATABLOK 
cmp «00 
beq no__f i 1 e_ther e 

j sr GetFile 


no file there: 


15d8 

15da 

15dc 

15de 


lda 

cmp 

bne 

jsr 


$fd 

«09 

not_pr_d river 
INSTPRINTER 


not_pr_driver: 

15el |j sr BUILDSCREEN 
choice cancel: 


$cl84 

$clae 


15e4 

15e6 

15e9 

15ec 

15ef 


$154d 

$clae 


lda «02 
jsr SelectPattem $c!39 

jsr i_Rectangle $cl9f 

.byte «65,«c7,«10 
.byte «00,«ef,«00 


$c256 


$15e4 


$15c2 
$16 2b 
$1582 


$175f 

$175f 

$15d8 

$c208 


$15el 

$1683 

$1469 


BUILDSCREEN: 


1469 

146b 
146e 
1471 
1474 
1477 
1479 
147c 
147f 
1482 
1485 
lus_3 
1487 
148a 
148c 
148e 

1491 

1492 
1494 


$cl51 

$c2b0 

$c2al 


not geo 


si 


154d 

1555 

1558 


$155c 


jsr iJPutString | $clae 
.byte «90,«00,«42 
.byte ’not-GEOS',«00 


wel geos: 


lda «01 
jsr SelectPattem$cl39 
jsr i_Rectangle |$cl96 
.byte «00,«5a,«3c 
.byte «00,«20,«01 
lda «00 | 

jsr Se lectPattem $ c 139 
jsr i_Rectangle |$cl96 
.byte «02,«58,«3f 
.byte «00,«ld,«01 
ldy «00 


lda 

cmp 

beq 

sta 

iny 

cpy 

bne 


$8290,y 
«a0 

naamjclaar 

NAMETXT,y 

«10 

lus 3 


naam klaar: 


1496 

1498 

149b 

149e 

14al 

14ae 

14bl 


155c j sr i_PutString 
155f .byte «50,«00,«4c 
1562 .byte 'Printer',«00 
156a LoadB r2L,«65 
156e LoadB r2H,«84 
1572 LoadB rlH,«4c 
1576 LoadB rl2L,«90 
157a LoadB rl2H,«00 
157e jsr PutString 
1581 RTS 
REMAKEDIAGBOX: 

1582 |lda $fd 
MAKEDIAGBOX: 


$clae 


$cl48 


$1496 

$1770 


$1487 


lda «00 
sta NAMETXT,y $1770 
jsr i_PutString $clae 
.byte «70,«00,«14 
.byte 'QUICKTOP 1.2',«00| 
jsr «PutString |$clae 
.byte ^$50,^$00,«24 


1584 

1586 

1588 

158a 

158c 

158e 

1590 

1598 

159a 

159c 

159e 

15a6 

15a8 

15aa 

15ac 


ldx $fb 

ldy $fc 

sta $fd 

sta $10 

stx $14 

sty $15 

LoadW r5,DATABLOK 

lda «00 

sta $16 

sta $17 

LoadW r0,DB_TABLE 

lda «96 

sta $3a 

sta $3c 

lda «00 


$175f 


$16dc 


15f 2 

jsr 

GotoFirstMenu 

$cltd 

15f 5 

jsr 

Mouseüp 

$cl8a 

15f 8 

lda 

«0a 


15fa 

sta 

i 

$3a 


15fc 

sta 

$3c 


15fe 

jsr 

MainLoop 

$clc3 

SELECTINPUT: 


1601 

LoadW 

a0,Input Txt 

$1732 

1609 

lda 

«0a 


160b 

jmp 

MAKEDIAGBOX 

$1584 

SELECTPRINTER: 


160e 

LoadW 

a0,Print Txt 

$173f 

1616 

lda 

«09 


1618 

jmp 

MAKEDIAGBOX 

$1584 

GODESKTOP: 



161b |ldy 

«00 


lus 4: 



161d 

lda 

ld Desk Txt,y 

$16f 4 

1620 

sta 

$ccdb,y 


1623 

iny 



1624 

cpy 

^$08 


1626 

bne 

lus 4 

$161d 

1628 

jsr 

EnterDesktop 

$c22c 

CHANGEDEVICE: 


162b 

lda 

$848d 


162d 

cmp 

«02 


1630 

beq 

drives is 2 

$1637 

1632 

lda 

«02 


1634 

sta 

$848d 


drives is i 

2: 


1637 

lda ‘ 

$8489 


163a 

jsr 

ExitTurbo 

$c232 

163d 

lda 

$8489 


1640 

cmp 

«09 


1642 

beq 

number is 9 

$1664 

1644 

lda 

«09 


store number: 


1646 

sta 

$8489 


1649 

jsr 

EnterTurbo 

$c214 

164c 

lda 

$8489 


164f 

jsr 

NewDisk 

$clel 

OPENDISK: 
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RUNd worden. De Install- Kernal in¬ 
stalleert de Kernal dan zodanig, dat 
deze in het vervolg niet de DeskTop, 
maar de QuickTop zal laden. Ik moet 
de lezers, die maar over 1 startdisk 
beschikken dit echter afraden. Vooral 
GEOS VI .3 kan erg grote schade toe¬ 
brengen als er zomaar files op de 
startdisk bijgezet worden. Ook het 
veranderen van de Kernal op de eni¬ 
ge startdisk is natuurlijk een riskante 
zaak. 

Totaaloverzicht 

In de eerste aflevering werd de alge¬ 
mene structuur van GEOS met Main- 
loop en InterruptLevel besproken. Bo¬ 
vendien werd de GEOS Memory Map, 
en het systeem met registervariabe- 
len en routines onder de loep geno¬ 


men. De tweede aflevering behelste 
het gebruik van menu’s en icons, en 
de grafische routines van GEOS. Er 
was bovendien een listing van een 
testapplicatie. En tenslotte zijn nu, in 
de derde aflevering, de moeilijkere 
technieken, zoals die van Dialog 
Boxes besproken. Alle basiselemen¬ 
ten van programmeren in GEOS zijn 
dus uitgelegd, en nu kunnen echte ap¬ 
plicaties (zoals de QuickTop) gemaakt 
worden. Heb ik nu niets meer om over 
te schrijven? Welnee, deze cursus 
gaat in een later stadium verder. Dan 
zullen bijvoorbeeld zaken als het 
schrijven van een eigen printerdriver 
(een veelvoorkomend probleem), en 
bepaalde ingewikkelde aspecten van 
bijvoorbeeld strings in GEOS aan de 
orde komen. Maar eerst is het weer de 
beurt aan de mensen die zich gewoon 


bij BASIC houden en die liever niet in 

machinetaal programmeren. 

Peter Boncz 

Rectificatie 

In de listing van de Quicktop zijn 3 fou¬ 
ten geslopen: 

° de naam SelectPattern moet conse¬ 
quent worden vervangen door Set- 
Pattern. 

0 in $1517 moet LoadB rOL,$8489 
veranderd worden in: 

$1517 Ida $8489 

$151a sta $02 

° alle RTS (met hoofdletters) moet 
vervangen worden door rts (kleine 
letters). 


1652 

1655 

1658 

165b 

165e 

1661 


Ida 

jsr 

Ida 

jsr 

isr 


$8489 

SetDevice 

$8489 

OpenDisk 


$c2b0 


GotoFirstMenu$clbd 


jmp BUILDSCREEN 


number is 9: 


1664 

1666 


Ida 

jmp 


^$08 

store number 


RUNAPPL: 


1669 

1671 

1673 


LoadW aO,RunAppTxt 

Ida ^$06 

jmp MAKEDIAGBOX 


RUNACC: 

1676 LoadW aO,RunAccTxt 

167e Ida ^$05 

1680 jmp MAKEDIAGBOX 

INSTPRINTER: 

1683 |Idy /$00 

lus 5: 


1685 

1688 

168b 

168e 

1691 

1692 
1694 

1696 
MENU 

1697 
169b 
169e 
16a0 
16al 
16a3 


Ida 

sta 

Ida 

sta 

iny 

cpy 

bne 

RTS 

TABLE 

.byte 

• byte 
.word 

• byte 
.word 
. word 


DATABLOK,y 
$8465,y 
$841e,y 
$8476,y 

^$10 
lus 5 


$.1469 


$1646 

$174e 

$1584 

$1713 

$1584 


$175f 


$.1685 


/$00,?f$0e,/$00,^$00| 
/$33,/$00,/$02 
Geos_Txt $1706 
/$80 

GEOSMENUTABLE $16a9 
Disk Txt I $.172.1 


16a6 

16a7 

16a8 


• byte ^$80 

•word DISKMENUTABLE 

.byte /$00 


$c2al ■GEOSMENUTABLE: 


16a9 

16ad 

16b0 

16b2 

16b3 

16b5 

16b7 

16b8 

16ba 

16bc 

16bd 

16bf 

16cl 

16c2 

16c4 

16c6 

16c7 

16c9 


.byte ^$0e,/$55,^$00,^$00 
.byte ^$49,^$00,/$85 
.word RunAppTxt 
.byte ^$00 
.word RUNAPPL 
.word RunAccTxt 
.byte /$00 
.word RUNACC 
.word DeskTopTxt 
.byte ^$00 
.word GODESKTOP 
.word Input_Txt 
.byte /$00 
.word SELECTINPUT 
.word Print_Txt 
.byte ^$00 
•word SELECTPRINTER 
• byte 


n$00 


DISKMENUTABLE: 


16ca 

16ce 

16dl 

16d3 

16d4 

16d6 

16d8 

16d9 

16db 


.byte ^$0e,^$2b,^$ld,^$00 
.byte /$50,/$00,^$82 
.word Open_Txt 
.byte ^$00 
.word OPENDISK 
.word Device_Txt 
.byte ^$00 
.word CHANGEDEVICE 
.byte ^$00 


DBJTABLE 

16dc 

16e0 


.byte #$00,#$64,^$c7,^$le 
.byte ^$00,^$ef ,^$00,^$0c 


16e4 .byte ^$86,/$0a,^$14,/$05 
$16ca■ 16e8 .byte /$12,^$28,/$02,^$12 
16ec .byte ^$3c,/$06,^$12,/$50 
16f0 .byte ^$10,/$08,/$08,/$00 
Ld_Desk_Txt: | 

16f41.byte 'DESK TOP 1 , 4 $00 
$174e | QuickTopTxt: | 

16fd|.byte 'QUICKTOP'.^$00 
$1669 I Geos Txt: 

$1713 | 1706"]". byte 'geos', ^$00 
DeskTopTxt: 

$1676I 170b|.byte 'desktop',^$00 
$170b| RunAccTxt: | 

1713|.byte 'run accessory 1 ,^$00 
$161bB Disk Txt: 

$17321 172lX-byte 'disk',^$00 
Open Txt: 

$1601B 1726~[~.byte 'open',^$00 
$173f B Device_Txt: 

172b|.byte 'device',^$00 
$160e B Input_Txt: 

1732|.byte 'select input',/$00 
Printer_Txt: | 

173f|.byte 'select printer',7$0( 
RunAppTxt: | 

$1726 | 174e .byte 'run application,^$0( 
175d .byte ^$00 
$1652 B hulpregister: 

$172bB 175e| .byte ^$00 

DATABLOK: 

$162b B 175f .block /$11 

(* 17 maal ^$00 *) 

NAMETXT: 


1770 


.byte ^$00 

{* EINDE LISTING *) 
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Ook deze keer hebben wij, voor zowel de basic programmeur als voor de machinetaal- 
programmeur, weer een aantal handige TIPS & TRUCS op een rij gezet. Wij hopen dat 
wij u met deze trucs weer uit de brand kunnen helpen. Mocht u nog een paar handige 
tips voor ons hebben, het adres staat voorin dit nummer. 

Tips en Trucs 



De cursor 

Het verplaatsen van de cursor in een 
basic programma is vaak een groot 
probleem. Natuurlijk hebben we de 
normale cursor bewegingscodes, 
maar deze oplossing is langzaam, en 
vreet geheugen, dus een niet erg ele¬ 
gante manier om de cursor over het 
scherm te bewegen. Een betere me¬ 
thode om dit aan te pakken is, een 
simple doch doeltreffende manier, Na¬ 
melijk: 

SYS DEC("fffO")„regel,kolom,0 

Vanaf $fffO springt de kernal naar 
$c018, vervolgens springt de kernal 
via $c018 naar $cc6a. Met $fffO kunt u 
zowel de positie lezen als zetten. U 
doet dit door de ‘carry-flag’ te wis¬ 
sen/zetten. Carry gezet betekend ‘po- 
sitie-lezen’ en carry gewist ‘positie- 
zetten’. Omdat dit de snelheid niet be¬ 
vordert, kunt u voor ‘positie-zetten’ 
ook gewoon direct naar $cc6c sprin¬ 
gen. Om de positie op te halen kunt u 
het beste direct naar $cc95 springen. 
Op deze manier kunnen u over het 
beeldscherm jakkeren alsof het niks 
is. Probeer het maar eens uit, succes 
verzekerd. 

Stop-toets blokkeren 

Soms is het nodig uw eigen program¬ 
ma te beschermen, tegen het per on¬ 
geluk onderbreken van het program¬ 
ma. Dus dient u de ‘stop-toets’ uit te 
schakelen. Met een poke bent u weer 
geholpen. U neemt gewoon de vol¬ 
gende poke even op in het basic pro¬ 
gramma: 

POKE DEC("0328"),112 

Om de ‘stop-restore’ combinatie ook 
uit te schakelen, tegen programma in¬ 
breuk, gebruikt u de onderstaande 
poke: 

POKE DEC("0318"),98 

Om een zo goed mogelijke efectieve 
beveiliging te verkrijgen neemt u bei¬ 


de poke’s op in uw programma. De 
enige manier om nu het programma te 
stoppen is een reset. PAS OP !! save 
eerst het programma voor u het op¬ 
start, mocht U namelijk nog iets willen 
aanpassen dan komt u in de proble¬ 
men! Plaats dus een REM voor de op¬ 
drachten, en het probleem is tijdelijk 
opgelost. Vergeet niet de beveiliging 
te activeren, door de REM voor de 
poke’s te verwijderen. Wanneer u nog 
niet wist wat er precies gebeurt, is nu 
de tijd aangebroken om goed op te let¬ 
ten! Door deze twee poke’s in uw pro- 
gamma’s op te nemen doet u niets 
meer dan vectoren ombuigen, naar 
iets verder in de routine’s, zodat deze 
de besproken toetscombinatie voorbij 
schieten. 

Functie toetsen 

De Cl 28 heeft in totaal tien verschil¬ 
lende functietoetsen. De eerste acht 
zijn makkelijk te vinden op het toet¬ 
senbord, namelijk F1 tot en met F8. 
Dat zijn er inderdaad maar acht. De 
andere twee zijn namelijk de ‘help’- 
toets en de ’schift-run-stop’ toets. Hoe 
kunt u nu de functies van deze toetsen 
veranderen? Als we nu eens met de 
monitor een kijkje nemen op het adres 
$1000 dan zien we eerst tien getallen 
en daarna de tekst van de functie toet¬ 
sen staan. De eerste tien bytes geven 
de lengte van de functietoetsen. Als 
we nu bijvoorbeeld onder functietoets 
F1 ‘run’ willen plaatsen, functietoets 


F3 ‘leeg’ willen laten en onder F2 het 
commando ‘list’ willen plaatsen, doen 
we dit als volgt. Op $01000 zetten we 
een 03, run is drie bytes lang, op het 
volgende adres zetten we een 00, 
hiermee is functietoets F3 leeg. Ver¬ 
volgens zetten we een geheugen- 
plaats verder een 04, list is vier bytes 
lang. Nu zetten we 10 bytes verder 
dan $01000 de tekst voor functietoets 
F1, in dit geval RUN. De tekst voor F3 
plaatsen we hier direct achteraan! 
Een groot aantal functietoetsen defi¬ 
niëren in machinetaal kan het best 
worden gedaan met een ‘verplaats 
lus’. Een enkele functietoets definieert 
u het beste met de onderstaande 
kernal routine: 

PFKEY $fff65 

LDA #$00 ;lo_byte van $02000 
STA $FC ;in zero page opslaan 
LDA #$20 ;hi byte van $02000 
STA $FD ;in zero page opslaan 
LDA #$FC ;pointer in accu laden 
LDX #$04 ;F4-toets wijzigen 
LDY #$03 ;lengte van RUN is 3 
JSR $ff65 ;en uitvoeren 
$02000 asc "run” 

In de ‘accu’ wordt de zero-page gela¬ 
den die samen met de zero-page, die 
daarna komt, een pointer vormt voor 
de tekst, in dit geval RUN. In het x_re- 
gister laden we het getal van de func¬ 
tietoets, ‘4’ voor functietoets F4. Het 
y_register bevat de lengte van de 
tekst die onder de functietoets moet 
worden gezet. 
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En vanuit BASIC? 


De Basic liefhebbers onder ons ma¬ 
ken gewoon gebruik van het alom be¬ 
kende commando ‘key’. 

Kernal routine’s 

Nu volgt nog een lijst van een aantal 
handige kernal routines die met een 
simpele SYS opdracht op te starten 
zijn. Machinetaal programmeurs hoe¬ 
ven wij niet te vertellen hoe zij deze 
routines moeten gebruiken. 


SYS 51284 Cursor naar rechts 
SYS 51290 Cursor naar onder 
SYS 51303 Cursor naar boven 
SYS 51317 Cursor naar links 
SYS 51328 Tweede karakterset aan 
SYS 51391 RVS mode uit 
SYS 51393 RVS mode aan 
SYS 51399 Onderstrepen aan 
SYS 51406 Onderstrepen uit 
SYS 51483 Teken links van cursor 
wissen 

SYS 51517 Teken wissen 

SYS 51535 Naar tabulator springen 

SYS 51584 Alle tabulatoren wissen 


SYS 51598 Bel-geluid wissen 
SYS 51732 Cursor links/boven in 
venster 

SYS 51734 Cursor rechts/bovenin 
venster 

SYS 51748 Hele scherm als venster 
SYS 51794 Regel wissen 
SYS 51830 Vanaf cursor regel wissen 
SYS 51851 Vanaf begin tot cursor 
wissen 

SYS 51871 Vanaf cursor positie tot 
einde scherm wissen 
SYS 51900 Naar boven scrollen 
SYS 51954 Blok cursor inschakelen 
SYS 51966 Onderstrepings cursor 
inschakelen 
SYS 51979 Knipperen 
cursoruitschakelen 
SYS 52001 Knipperen 
cursorinschakelen 
SYS 52031 80 tekens monitor 
negatief weergeven 
SYS 52040 80 tekens monitor 
normaal weergeven 
SYS 52263 Spatie op actuele 
cursorpositie 

SYS 52271 Teken in accu naar 
actuelecursor positie 
SYS 52298 Teken in accu weergeven 
met kleur (x-reg.) in kolom 
(y-reg.) op 80 tekens scherm, 
zonder cursor beweging! 

SYS 52330 Cursor positiehalen/kiezen 
SYS 52524 Swapper - omschakelen 
40/80 tekens scherm. 

JOHAN & JOHAN 


Waar mensen werken worden menselijke fouten gemaakt. Natuurlijk zijn wij ook niet 
meer dan ‘gewone’ mensen. Vandaar dat wij ook fouten kunnen maken, en hiervoor 
onze excuses. 


Foutje 

E n om met een schone lei 1989 te kunnen ingaan willen wij in dit laatste 
nummer van dit jaar alles proberen recht te zetten. Ook willen wij bij deze 
alle lezers die ons geholpen hebben met het opsporen van de fouten harte¬ 
lijk bedanken! Wat we volgend jaar allemaal gaan doen kunnen we nog niet 
zeggen, omdat we dat zelf nog niet precies weten. Wel hopen we dat alle le¬ 
zers goed en gezond het jaar kunnen ingaan. Denk er dus goed aan dat vuur¬ 
werk duur en levensgevaarlijk is. Hoe wilt u een computer bedienen zonder 
handen? Hopelijk komt het niet zover. 

wel eens een typfout! 


Wat ging er fout? 

Wat er fout ging, van alles. Allereerst 
moesten wij ook even aan de samen¬ 
werking met Commodore Info wen¬ 
nen. Vervolgens moesten wij diverse 
onderdelen van de computer zelf ook 
nog eens bekijken, met name het 
nieuwe model 128DCR. En omdat wij 
ook maar mensen zijn, maken wij ook 


Een bloemlezing 

De allereerste keer, nummer 3 van 
1988, kwamen wij met de introductie 
van TRIPLE 128. Al snel bleek dit gi¬ 
gantisch aan te slaan. Commodore 
INFO was namelijk het eerste blad dat 
echt aandacht schonk aan de Cl28. 



Ondanks de kleine hoeveelheid infor¬ 
matie in het duitse blad ‘64’ER’ en van 
collega ‘Commodore Dossier’ waarin 
Henk-Johan van Rantwijk probeerde 
het Cl28 hoofd boven water te hou¬ 
den, was er niet veel informatie voor 
de Cl 28 gebruiker beschikbaar. Ook 
klaagde het duitse blad over het aan¬ 
tal lezers dat zelf ook eens wat op¬ 
stuurt, deze groep zou zeer beperkt 
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Triple 128 


zijn. Nu Commodore Dossier is ge¬ 
stopt is Commodore Info de enige die 
zo veel aan de Cl 28 doen. Maar U 
bent gewaarschuwd, wanneer blijkt 
dat er te weinig informatie van u komt, 
zullen wij ook verdwijnen! En dan 
staat de Cl 28 in zijn hemd. Maar zo¬ 
ver laten wij het toch niet komen? 

Johan & Johan 

Inmiddels zijn Johan & Johan aange¬ 
sloten bij M.G.C.C. Deze in het ‘hoge 
noorden’ gevestigde groep staat be¬ 
kend om zijn krakerswerk! M.G.C.C. 
is een internationaal opererende ver¬ 
eniging. De voorzitter van deze club is 
Henk-Johan van Rantwijk. Hij is in het 
dagelijks werk computerdeskundige. 
En is laatst als enige Nederlander 
naar België afgereisd, om de BISTEL 
kraak te bestuderen! En dat is nooit 
weg om zo iemand in ons midden te 
hebben. M.G.C.C. is de tegenhanger 
van de Duitse C.C.C. Alleen zegt de 
voorzitter niet zulke domme uitspra¬ 
ken te kunnen doen. U heeft het mis¬ 
schien al in de gaten, Johan & Johan 
staat vanaf nu niet alleen meer, maar 
wordt bijgestaan door M.G.C.C. Kra¬ 
ken doet de M.G.C.C. niet meer, maar 
heeft wel veel info voor U. 

Power Booster Cl28 

De Nederlandse verkopers van hard¬ 
ware zijn er nog nooit in geslaagd om 
een POWER BOOSTER voor de 
Cl28 te ontwikkelen. Volgend jaar 
staat de hele KERNAL in ons blad. De 
complete listing, uitleg en technische 
informatie over de Master Genius PO¬ 
WER BOOSTER. U hoeft hem niet te 
kopen, niet te stelen, maar gewoon 
ons blad blijven lezen! Vanaf het vol¬ 
gende jaar wordt het dus vingers 
branden! Solderen en hardware be¬ 
studeren. Ja die Cl28 bak kan nog 
veel meer, blijven lezen dus. 



Geos128 

Ook kregen wij veel post over GEOS 
128. In de eerste plaats blijkt de in Ne¬ 
derland verkrijgbare Geos 128 versie 
op het moment nog niet vrij van fouten 
te zijn. Het is daarom op het moment 
moeilijk daarover concrete vragen te 
beantwoorden. Zodra er meer bekend 
is houden wij u vanzelfsprekend op de 
hoogte. 


;"then goto 30" Een kleine maar lasti¬ 
ge drukfout! 

Commodore INFO nr.5 

Op pagina 47 staat een klein voor¬ 
beeldprogramma. In dit programma 
staat een kleine fout. In regel 10004 
moet u het volgende verwijderen uit 
de regel: "isleepl :goto 10003" Een 
oplettende lezer zag de fout en klom 



~rz> , 


En we zullen proberen een aantal 
handige tips voor GEOS 128 samen 
te stellen. Ook het veelgenoemde pro¬ 
bleem met printeraansturing zullen wij 
eens heel goed gaan bestuderen. Ver¬ 
der kan GEOS beslist niet in de 2 MHz 
mode werken, zeker niet als de RAM 
disk wordt gebruikt. Bij 1/0 is immers 
NOOIT de 2 mHz mode aktief, anders 
hangt de computer! 

Amiga 

Ook op de Amiga zijn wij zeer actief 
bezig geweest. U heeft in de laatste 
nummers, en ook nu weer, een aantal 
pagina’s over en voor de Amiga ge¬ 
bruiker, software en straks over de 
hardware. Wanneer u ideeën heeft 
opgestuurd dan oke! Ook program¬ 
ma’s of ideeën daarvoor kunt u opstu¬ 
ren naar ons. 

Commodore INFO nr.4 

In nummer 4 van dit jaar ging ons 
voorbeeldprogramma: "Simpleterm" 
in de fout. Op pagina 27 staat: "50 
get#2,a$ enz enz Aan het einde moet 
natuurlijk staan;"then goto 20" i.p.v 


gelukkig even in de pen. Ook stond er 
in nummer 5 een hardwarevoorbeeld. 
Nog even dit. Wij en M.G.C.C werken 
al vele jaren met vele meters kabel 
met dit simpele interface. Het is 
‘goed’koop en werkt uitstekend. Al¬ 
leen moet u van de onderste 6 een 8 
maken in fig.31! Verder dient u dit arti¬ 
kel goed door te lezen voordat u met 
het maken van de interface begint. 

Het vorige nummer 

In het vorige nummer ging ons 
DeskTop programma ‘Ventura’ in de 
fout. Ventura herkent het groter- en 
kleiner dan teken als een controle ka¬ 
rakter! Dus die waren verdwenen uit 
de listing. Op de pagina’s met daarop 
de listing van de TURBO routine’s 
moet u tussen ‘CS’ en het daarachter 
gepubliceerde getal even ‘<>’ zetten. 
Vervolgens is dat ook weer opgelost. 
En wanneer we nu kijken naar de hoe¬ 
veelheid tekst, en dan naar het aantal 
fouten mogen wij nog niet klagen ook. 
JOHAN & JOHAN 
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Dp-128 


Ivo Clarysse, ook al geen onbekende van ons, heeft 
voor ons een programma gemaakt dat het werken 
met de commodore 128 weer wat makkelijker maakt. 
De werking is erg eenvoudig, alle voorkomende disk 
funkties, ja U weet wel die omslachtig in te typen op¬ 
drachten, kunnen uit een menu worden aangegeven. 
Het kan zeker de nodige tijd besparen, die dan weer 
voor iets anders nuttigs is te gebruiken. 

Programma dp’128 

1 rem *************dp'128*********** 

★ ★ ★ ★ 

2 rem ***door k.poelmans & r. van da 
m*** 

3 rem **** uit 

★ ★ ★ * 

4 rem **** 

★ ★ ★ ★ 

5 rem *************oegstgeest******* 

* * ★ ★ 

6 rem *******voor commodore-info**** 

★ ★ * ★ 

10 trapl050:gosub930:colorl,1:char,7, 

4,"disk":char,3,6,"1[SPACE]format" 

:char,3,7,"2[SPACE]cleanup":char,3 
,8,"3[SPACE]validate":char, 3, 9, "4[ 
SPACE]directory" 

20 char,18,4,"files":char,17,6,"5[SPA 

CE]scratch":char,17,7,"6[SPACE]ren 
ame":char,17,8,"7[SPACE]print[SPAC 
E]scherm":char,17,9,"8[SPACE]info[ 
SPACE](print)":slow 
30 getkeya$:ifa$=""then 30 

40 onval(a$)gosuböO,90,110,130,540, 57 

0,600,720 

50 ifa$<"1"ora$>"8"then30 

60 graphicO,1:o=l:gosubllOO:print"gee 

f[SPACE]nieuwe[SPACE]naam":inputhd 
$:input"nieuw[SPACE]i.d.[SPACE]num 
mer";id$:id$=left$(id$+"[2xSPACE]" 

,2) 

70 input"zeker[SPACE]weten(j/n)[SPACE 

]";j$:ifj$<>"j"then windowO,0,39,2 
4:gotolO 

80 openl5,8,15,"n0:"+hd$+","+id$:clos 
el5:windowO,0,39,24:gotolO 
90 graphicO,1:o=2:gosubllOO:print"gee 

f[SPACE]nieuwe[SPACE]naam":inputhd 
$:print"stop[SPACE]disk[SPACE]in[S 
PACE]drive[SPACE]en[SPACE]druk[SPA 
CE]toets":getkeyh$ 

100 openl5,8,15,"n0:"+hd$:closel5:wind 

ow0,0,39,24:gotolO 

110 gosubl090:slow:char,7,16,"stop[SPA 

CE]de[SPACE]te[SPACE]validaten[SPA 
CE]disk":char,8,17,"in[SPACE]de[SP 
ACE]drive[SPACE]en[SPACE]druk":cha 
r,14,18,"een[SPACE]toets":getkeyh$ 

120 openl5,8,15:print#15,"v0":close15: 

gotolO 

130 gosub930:char,10,4,"directory":cha 

r,4,5,"1.[SPACE]dir.1":char,4,6,"2 
.[SPACE]dir.2":char,4,7,"3.[SPACE] 
print[SPACE]dir.":char,4,8,"4.[SPA 
CE]op[SPACE]naam[SPACE]dir.":char, 

4,9,"5.[SPACE]hoofdmenu" 
slow:getkeya$:ifa$=""thenl40 
onval(a$)goto940,1040,170,1060,10 
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340 
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390 
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470 

480 

490 

500 

510 

520 

530 

540 


550 

560 

570 


ifa$<"l"ora$>"5"then 140 
graphicO,1:print"stel[SPACE]de[SPA 
CE]printer[SPACE]in![SPACE]stop[SP 
ACE]disk[SPACE]in[SPACE]drive,[SPA 
CE]en[SPACE]druk[SPACE]toet s":getk 
eya$ 

print "laat [SPACE] de [SPACE] disk [SPA 
CE ] in [ SPACE ] de [ SPACE ] drive [ SPACE ] t 
ot [SPACE] het [SPACE] lampje [SPACE] ui 
t [SPACE] is" 
open4,4 

w=0:k=0:t=0:t$="" 
openl,8,0,"$0" 
get#l,a$,b$ 
get#l,a$,b$ 
get#l,a$,b$ 
c=0 

ifa$<>""thenc=asc(a$) 
ifb$<>""thenc=c+asc(b$)*256 
ifw=0thena$=" ":b$="":goto310 
get#l, b$ : if stOOthen 480 
t=t +1:t$=t$ + "b [SPACE]"+right$("00 
"+mid$(str$(c),2),3)+"[2xSPACE]":a 
$=" " 

get#l,b$:ifst<>0then480 
ifb$Ochr$ (34) then310 
get#l, b$ : ifb$Ochr$ (34) thena$=a$+b 
$:goto330 

ifw=0thenprint#4,"disk[SPACE]:[SPA 
CE]"left$(a$+"[16xSPACE]",16)chr$( 
15) ; 

ifw=0thenprint#4,"[5xSPACE]i.d.[SP 
ACE]=[SPACE]";:goto370 
t$=t$+left$(a$+"[16xSPACE]", 16)+"[ 
SPACE]" 

get#l,b$:ifb$=chr$(32)orb$=":"then 
370 
c$=" " 

c$=c$+b$:get#l,b$:ifb$<>""then390 
ifw=0thenprint#4,left$(c$+"[2xSPAC 
E]", 2);chr$ (15) 
ifw=0thenw=l :goto460 
t$=t$+left$(c$,3): ifk=0thenk =2:t$ 
=t$+"[SPACE]" 

ifk =lthenk =0:t$=t$+"[2xSPACE]":p 

rint#4,t$:t$="" 

ifk =2thenk =1 

a$="":b$="":c$="" 

getg$:ifg$<>""then gosub520 

ifst=0then230 

ift /2<>int(t /2)thenprint#4,left$ 
(t$,len(t$)-6);"[27xSPACE]b" 
print#4,right$ ("00"+mid$ (str$(c),2 
),4)"[SPACE]blocks[SPACE]free" 
ifa$=""thenclosel:close4:gotol30 
closel:close4:gotol30 
ift$="q"thenclosel:close4:a$="":b$ 
="":c$="":t$="":gotol30 
gett$:ift$=""then520 
graphicO,1:o=3:gosubllOO:print"wel 
k[SPACE]prg[SPACE]moet[SPACE]gescr 
atched[SPACE]worden":inputgs$:inpu 
t"zeker[SPACE]weten[SPACE](j/n)[SP 
ACE]";z$ 

ifz$<>" j"thenwindow0, 0,39,24:gotol 
0 

openl5,8,15,"s0:"+gs$:closel5:wind 
ow0,0,39,24:gotolO 
graphicO,1:o=4:gosubllOO:print"gee 
f[SPACE]oude[SPACE]naam":inputrf$: 
print"geef[SPACE]nieuwe[SPACE]naam 
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":inputnf$ 

print"stoptSPACE]disk[SPACE]in[SPA 
CE]drive[SPACE]en[SPACE]druk[SPACE 
]toets":getkeyp$ 

renamedO, " "+rf $to" "+nf$ : windowO, 0, 
39,24:gotolO 

gosubl090:char,6,16,"als[SPACE]het 
[SPACE]scherm[SPACE]is[SPACE]ingei 
aden,":char,6,17,"ziet[SPACE]u[SPA 
CE] het [SPACE] en [SPACE] dan [SPACE] is 
[SPACE]p[SPACE]voor":char,6,18,"pr 
inten[SPACE]en[SPACE]een[SPACE]and 
ere[SPACE]toets":char,15,19,"voor[ 
SPACE]menu" 

char,13,20,"druk[SPACE]een[SPACE]t 
oets":getkeyt$ 

graphicO,1:o=5:gosubllOO:print"gee 
f[SPACE]naam[SPACE]v.h. [SPACE]s che 
rm":inputn$:print"stop[SPACE]disk[ 
SPACE]in[SPACE]drive[SPACE]en[SPAC 
E]druk[SPACE]toets":getkeyh$:graph 
iel,1:bload""+n$,b0,p7168 
getkeyw$ : ifw$Ochr$ (80) then 10 
open4,4 

fort=312to0step-8 
drawl,t,Otot,199 
shapep$,t,0,t+7,199 
P$=left$(p$, 200) 
print#4,chr$(8) +p$ 
next 

print#4,chr$(15):close4:windowO,0, 
39,24:gotolO 

gosubl090:charl,5,16,"1.[SPACE]inf 
o":char,5,17,"2.[SPACE]info[SPACE] 
print":t=l:w=0 

a$="":getkeya$:ifa$=""then730 
onval(a$)goto7 60, 910 
ifa$<>"1"ora$<>"2"then 730 
s$(l)="hallo[SPACE]allemaal![SPACE 
]welkom[SPACE]bij[SPACE]dp'128,[SP 
ACE]dit[SPACE]is[SPACE]een[SPACE]i 
nfo[SPACE]over[SPACE]dp'128.[SPACE 
]de[SPACE]eerste[SPACE]vraag:[SPAC 
E]wat[SPACE]betekent[SPACE]dp'12 8 ? 

[SPACE]nou[SPACE]dp'128[SPACE]bete 
kent[SPACE]disk[SPACE]&[SPACE]prin 
ter[SPACE]cl28(d).[SPACE]" 
s $(2)="vraag[SPACE]2: [SPACE]wat[SP 
ACE]kun[SPACE]j e[SPACE]doen[SPACE] 
met[SPACE]dp'128?[SPACE]u[SPACE]ku 
nt:[SPACE]formateren,[SPACE]cleanu 
p,[SPACE]directory[SPACE](met[SPAC 
E]speciale[SPACE]dir's),[SPACE]scr 
at chen, [SPACE]renamen[SPACE]en[SPA 
CE]grafische[SPACE]schermen[SPACE] 
printen," 

s$(3)="[SPACE]op[SPACE]een[SPACE]g 
rafische[SPACE]printer[SPACE]met[S 
PACE]device-nummer[SPACE]4[SPACE]( 
verander[SPACE]anders[SPACE]device 
-nummers).[SPACE]vraag[SPACE]3:[SP 
ACE]hoe[SPACE]werkt[SPACE]dp'12 8 ?[ 
SPACE]heel[SPACE]simpel.[SPACE]in[ 
SPACE]het[SPACE]hoofdmenu[SPACE]ku 
nt[SPACE]u[SPACE]kie" 
s $(4)="zen[SPACE]uit[SPACE]de[SPAC 
E]nrs.[SPACE]1-8(heel[SPACE]simpel 
).[SPACE]enne...[SPACE]dit[SPACE]p 
rogramma[SPACE]is[SPACE]echt[SPACE 
]helemaal[SPACE]zelf[SPACE]geschre 
ven[SPACE]door[SPACE]gm-soft(k.poe 
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lmans [ SPACE ] & [ SPACE ] r . van [ SPACE ] da 
m) [SPACE] nou [SPACE] doei! !" 
ifr=4thenreturn 
fora=lto4 

forb=ltolen(s$(a))-40 
charl,0,24,mid$(s$(a),b,40) 
forg=lto80:nextg 
nextb 

forz=lto39:charl,0,24,mid$(s$(a),z 
+b,len(s$(a))-z)+mid$(s$(a+1) , 1, z) 

:forh=lto75:next:next 
nexta 

charl,0,24,"druk[SPACE]spatie" 

geta$:ifa$=chr$(32)thenlO 

ifa$Ochr$ (32) then 880 

charl,7,18,"stel[SPACE]uw[SPACE]pr 

inter[SPACE]in[SPACE]en[SPACE]druk 

":charl,15,19,"een[SPACE]toets":ge 

tkeya$ 

r=4:gosub7 60:open4,4: ifw=0thenprin 
t#4,s$ (1)s$(2)s$(3)s$(4) :closel:cl 
ose4:gotolO 

fast:colorO,7:color4,7:colorl,1:gr 
aphicl,1:box,5,5,315,110:colorl, 12 
:box,13,13,307,102:colorl,13:box,2 
1,21,299,94:char,2,24,"disk-status 
[SPACE]"+ds$:return 
graphicO,1:o=6:gosubllOO:print"sto 
p[SPACE]disk[SPACE]in[SPACE]drive[ 
SPACE]en[SPACE]druk[SPACE]toet s":g 
etkeyh$ 

openl,8,0,"$":get#1,a$,a$,a$,a$:ge 
t#l,a$,b$:b=asc(a$)+256*asc(b$):pr 
intmid$(str$(b),2); 

get#l,a$:printa$;:onlen(a$)goto960 
:printchr$(146):dp=dp+l:ifdp=8then 
1010 

get#l,a$,a$:ifa$=""thenclosel:goto 
1030 

get#l,a$,b$:b=asc(a$)+256*asc(b$): 

printmid$(str$(b),2); 

get#l,a$:printa$;:onlen(a$)goto960 

:printchr$(146):dp=dp+l:ifdp=18the 

nl010 

get#l,a$,b$:b=asc(a$)+256*asc(b$): 
printmid$(str$(b),2)p$; 
print"druk[SPACE]een[SPACE]toets": 
getkeyh$ 

print"[SHIFT-CLR]": dp=0 :goto970 
print"druk[SPACE]een[SPACE]toets": 
getkeyr$:windowO,0,39,24:gotol30 
graphicO,1:o=7:gosubllOO:print"sto 
p[SPACE]dis k[SPACE]in[SPACE]drive[ 
SPACE]en[SPACE]druk[SPACE]toet s":g 
etkeys$:directory:print"druk[SPACE 
]een[SPACE]toets":getkeyl$:windowO 
,0,39,24:gotol30 

closel:close4:windowO,0,39,24,1:go 
tolO 

graphicO,1:o=8:gosubllOO:print"typ 
[SPACE]bv[SPACE]'e'[SPACE]dan[SPAC 
E]zet[SPACE]de[SPACE]computer[SPAC 
E]alle[SPACE]namen[SPACE]die[SPACE 
]met[SPACE]'e'[SPACE]beginnen,van[ 
SPACE]de[SPACE]dis k[SPACE]in[SPACE 
]de[SPACE]drive,[SPACE]op[SPACE]he 
t[5xSPACE]scherm" 

input"welke[SPACE]letters";b$:prin 
t"stop[SPACE]disk[SPACE]in[SPACE]d 
rive[SPACE]en[SPACE]druk[SPACE]toe 
ts":getkeya$ 
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^ ^ Klinkers zoek 


1130 


1140 


1150 


1160 


1170 


1180 


1190 


1200 


1210 


1220 


directory' 1 "+b$ + "*" : closel :print"dr 
uk[SPACE]een[SPACE]toets":getkeya$ 

:windowO,0,39,24:gotol30 
colorl,8:box,36,120,286,176:return 
color4,1:color0,1:p=l 
printchr$(5):fori=0to39:char,i,p," 
[CTRL-9][SPACE]":nexti:p=2 
printchr$(155):fori=0to39:char,i,p 
,"[CTRL-9][SPACE]":nexti:p=3:print 
chr$(152):fori=0to39:char,i,p,"[CT 
RL 9][SPACE]nexti 

p=4:printchr$(151):fori=0to39:char 
,i,p,"[CTRL-9][SPACE]nexti 
printchr$(5):char,3,6,"[COM-D]":fo 
ri=3to37:char,i,6,"[COM-P]":nexti: 
1=7:forp=ltol2:char,3,1,"[COM-L]": 
char,37,1,"[COM-J]":1=1+1:nextp:ch 
ar,3,18,"[COM-C]":fori=3to37:char, 
i,18,"[COM-Y]":nexti 
ifo=lthenchar,17,2,"format":window 
4,7,36,17:return 

ifo=2then char,16,2,"cleanup":wind 
ow4,7,36,17:return 

ifo=3thenchar,17,2,"scratch":windo 
w4,7,36,17:return 

ifo=4thenchar,17,2,"rename"iwindow 
4,7,36,17:return 

ifo=5thenchar,12,2,"print[SPACE]sc 
herm":window4,7,36,17:return 
ifo=6thenchar,13,2,"directory[SPAC 
E]1":window4,7,36,17:return 
ifo=7thenchar,13,2,"directory[SPAC 
E]2":window4,7,36,17:return 
ifo=8then char,11,2,"naam[SPACE]di 
reetory":window4,7,36,17:return 


EINDE LISTING dp’128 


Nederlanders, ook onze zuider buren vatten we hier 
voor het gemak maar even onder zijn over het alge¬ 
meen gek op taal spelletjes. F. Heytens, ja uit Belgie 
heeft er voor ons weer één gemaakt. Ditmaal zijn de 
klinkers van het scherm verdwenen, en wie kan dan 
het juiste woord nog vinden? Om vast wat te oefe¬ 
nen: 

CMMDR NF HT CMPTRBLD VR NDRRLND N BLG 

m 

■ ■ ■ 

0 rem **klinker zoek door heytens fr 

. ** *** intro *** 

1 restorel23:fori=3584to3584+63:read 
b:pokei,b:next 

2 print"[SHIFT-CLR]":color0,1:color4 
,1 

3 fori=0to24: print"[CTRL-2][2xCOM-+ 

][SPACE]" ;"[CTRL-3][2xCOM-+][SPAC 
E]"; "[CTRL-4][2xCOM-+][SPACE]" ;" 

[CTRL-5][2xCOM-+][SPACE]" ;"[CTRL- 
6][2xCOM-+][SPACE]" ;"[CTRL-7][2xC 
OM +][SPACE]"; 

4 print"[COM-1][2xCOM-+][SPACE]" ;"[ 
COM-7][2xCOM-+][SPACE]"; "[COM-5][ 
2xCOM-+][SPACE]" ;"[COM-3][2xCOM-+ 

][SPACE]" /"[CTRL-8][2xCOM-+][SPAC 
E]" ;"[COM-8][2xCOM-+][SPACE]";"[C 
OM 6][2xCOM-+]" :next 

5 char,4,6,"e":char,22, 2,"o":char,1 
3,23,"e":char,27,18,"i" 

6 windowl2,10,25,14,1:print"[2xCRSR- 
DOWN]kl[SPACE]nk[SPACE]rs[SPACE]z[ 
2xSPACE]k" 

7 spritel,1,2:movesprl,0,50:movesprl 
,90#1:sleep5.5:movesprl,180#1:slee 


Checksum dp’128 


regel 

1 

125 

regel 290 

202 

regel 

2 

244 

regel 300 

6 

regel 

3 

150 

regel 310 

202 

regel 

4 

185 

regel 320 

15 

regel 

5 

121 

regel 330 

33 

regel 

6 

73 

regel 340 

196 

regel 

10 

243 

regel 350 

101 

regel 

20 

15 

regel 360 

57 

regel 

30 

41 

regel 370 

104 

regel 

40 

38 

regel 380 

93 

regel 

50 

100 

regel 390 

103 

regel 

60 

206 

regel 400 

232 

regel 

70 

76 

regel 410 

2 

regel 

80 

94 

regel 420 

189 

regel 

90 

25 

regel 430 

169 

regel 

100 

233 

regel 440 

143 

regel 

110 

156 

regel 450 

136 

regel 

120 

141 

regel 460 

175 

regel 

130 

6 4 

regel 470 

80 

regel 

140 

185 

regel 480 

229 

regel 

150 

103 

regel 490 

181 

regel 

160 

147 

regel 500 

195 

regel 

170 

94 

regel 510 

54 

regel 

180 

108 

regel 520 

145 

regel 

190 

51 

regel 530 

138 

regel 

200 

184 

regel 540 

11 

regel 

210 

84 

regel 550 

148 

regel 

220 

24 

regel 560 

252 

regel 

230 

24 

regel 570 

229 

regel 

240 

24 

regel 580 

255 

regel 

250 

37 

regel 590 

181 

regel 

260 

176 

regel 600 

169 

regel 

270 

232 

regel 610 

87 

regel 

280 

179 

regel 620 
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regel 630 
regel 640 
regel 650 
regel 660 
regel 670 
regel 680 
regel 690 
regel 700 
regel 710 
regel 720 
regel 730 
regel 740 
regel 750 
regel 760 
regel 770 
regel 780 
regel 790 
regel 800 
regel 810 
regel 820 
regel 830 
regel 840 
regel 850 
regel 860 
regel 870 
regel 880 
regel 890 
regel 900 
regel 910 
regel 920 


regel 880 
regel 890 
regel 900 
regel 910 
regel 920 
regel 930 
regel 940 
regel 950 
regel 960 
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51 

125 

185 
100 
113 
102 
130 
176 
13 
245 

248 

249 
159 
63 
249 
207 
248 
125 
118 
77 

186 
196 
17 
195 
107 
103 
24 
100 
205 
76 
150 
225 
134 
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regel 

regel 

regel 
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990 
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1080 
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1150 
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1200 
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183 

132 

186 
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79 
47 
177 
73 
147 
220 
78 
64 
157 
73 
136 
138 
59 
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1 23 

I 24 

II 25 

I 2 6 



I 37 


P3 

movesprl,90#1 

windowl2,10,25,14,1:print"[2xCRSR- 
DOWN]kl[CTRL-9]i [CTRL-0] nk[SPACE]r 
s[SPACE]z[2xSPACE]k":sleepl 
windowl2,10,25,14,1:print"[2xCRSR- 
DOWN]kl[CTRL-9]i [CTRL-0] nk[CTRL-9] 
e [CTRL-0] rs[SPACE]z[2xSPACE]k":sle 
ep2 

windowl2,10,25,14,l:print"[2xCRSR- 
DOWN]kl[CTRL-9]i [CTRL-0] nk[CTRL-9] 
e [CTRL-0] rs[SPACE]z[CTRL-9]o[CTRL- 
0][SPACE]k":sleep.5 
windowl2,10,25,14,1:print"[2xCRSR- 
DOWN]kl[CTRL-9]i [CTRL-0] nk[CTRL-9] 
e [CTRL-0] rs[SPACE]z[CTRL-9]oe[CTRL 
0]k":sleep6:movesprl,90#0:spritel 
,0,2 

fori=lto3:print:sleepl:next:print" 
[4xSPACE]door[4xSPACE]" :slee 

Pl 

fori=lto3:print:sleepl:next:print" 
heytens[SPACE]franky" :sleepl 

fori=lto4:print:sleepl:next 
trapl26 

windowl2,10,25,14,1 
xx=l: aa=0 : ss=0 : sc=0 : ab=0 : ak=0 
input"[CTRL-2]naam[SPACE]speler[SP 
ACE]1";nl$ 

input"[COM-7]naam[SPACE]speler[SPA 
CE]2";n2$ 

print"hoeveel[SPACE]reeksen[SPACE] 
(1-5)":getkeycc:ifcc<lorcc>5 then 
21 

print"[COM-8]o.k.[SPACE]j/n":getke 
yo$:if o$="j" then dima$(100,cc):g 
osub68:goto26:elsel9 

rem *** hoofdscherm *** 

* 

sleep2:windowO,0,39,24,1:colorO, 1: 
char,15,22, i$ 

color5,15 :wl=0 :wb=10:wr=18:wo=18:p 

rintchr$(27)"m":gosubl27 

color5,8:wl=20:wb=10:wr=38:wo=18:p 

rintchr$(27)"m":gosubl27 

color5,15:windowO, 0,39, 24 

char,14,0,"[CTRL-8]klinker[SPACE]z 

oek",1 

char,3,8,"speler[SPACE]1":char,30, 
8,"speler[SPACE]2" :color5,2 
char,3,9,nl$:color5,11: char,23,9, 
n2$ 

color5,4:wl=5:wb=l:wr=34:wo=7:prin 
tchr$(27)"m":gosubl27:goto35 
poke2599,1:soundl,26456,145,1,756, 
62,2 :sleep2 

ak=ak+l:sc$=str$(sc):ss$=str$(ss): 
sleep2: ifak>10then gosub68:goto 

26 

color4,1:colorO,1:windowO,0,39, 23 
i=int(rnd( ti)*100) :ifi<l then 37 
a$=a$(i,aa) :color5,7 
charl,3,23,"[4xSPACE]",1:charl,3,2 
3,sc$,1 

charl,30,23,"[4xSPACE]", 1:charl,30 
,23,ss$,1 

window6,2,33,6,1:forl=lto len(a$) 
ll$=mid$(a$,1,1):ifll$="a"orll$="i 
"orll$="o"orll$="y"orll$="e"orll$= 
"u"then44 


print"[CTRL-4][CTRL-9]"+11$+"[CTRL 
0][COM-6]";:next:goto45 
next 

color5,14:print:printtab(5)"welk[S 
PACE]woord[SPACE]is[SPACE]dit":pri 
nttab(6) "druk[SPACE]een[SPACE]toe 
ts[SPACE]" 

printtab(2)"speler1=_[2xSPACE]/[2x 
SPACE]speler2=" 



rem 


* ★ * 


hoofdprogramma 


★ * * 


ti$="000000":color4,2:do until b$= 
chr$(95) or b$=chr$(92):getb$ 
if ti$="000015" then exitrelse loo 

P 

if ti$="000015" then color4,1:soun 
dl,26456,145,1,756,62,2:sleep4:got 
o35 

ifb$=chr$(95) then color4,1:b$="": 
goto 55 

ifb$=chr$(92) then color4,1:b$="": 
goto61 

color4,15:windowl,11,17,17,1:print 
chr$(147):print"uw[SPACE]antwoord[ 
SPACE]is" 
gosub88:print 

ifa$=aa$thenprint"juist[SPACE]antw 
oord":soundl,56456,145,0,756, 62,2: 
sc=sc+10:else59 

sleep 3:windowl,11,17,17,1:goto35 
print"verkeerd[SPACE]antwoord":sou 
ndl,3456,45,0:sc=sc-5:sleep3:windo 
wl,11,17,17,1 
goto35 

color4,8:window21,11,37,17,1:print 
"uw[SPACE]antwoord[SPACE]is[SPACE] 
" :gosub95:print 

ifa$=aa$thenprint"juist[SPACE]antw 
oord":ss=ss+10:soundl,56456,145,0, 
756,62,2:else64 

sleep3:window21,11,37,17,1: goto35 

print"verkeerd[SPACE]antwoord":sou 

ndl,3456,45,0:ss=ss-5:sleep3:windo 

w21,11,37,17,1 

goto35 

* 

rem *** keuze menu *** 

windowO,0,39,24,1 
if aa=cc then goto 103 
print"[COM-6][CTRL-9]landen [CTRL-0 
]";:printtab(20)"[CTRL-2][CTRL-9]s 
preekwoorden [CTRL-0] ":print 
print"[COM-8][CTRL-9]zanger(es)/gr 
oep [CTRL-0] ";:printtab(20)"[CTRL-3 
][CTRL-9]sport[SPACE]en[SPACE]spel 
[CTRL-0] ":print 

print"[COM-1][CTRL-9]filmsterren[C 
TRL 0]";:printtab(20)"[COM-7][CTRL 
9]stripverhalen [CTRL-0] ":print 
ak=0 : on xx goto75,76 
input"speler1[SPACE]uw[SPACE]keuze 
[SPACE]";i$:o=l: xx=2 :goto80 
input"speler2[SPACE]uw[SPACE]keuze 

[SPACE]";i$:o=2:xx=l 
■ 

rem *** file inladen *** 

• 

aa=aa+l 

open5,8,5,"”+i$+",s,r" 
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108 


109 


fori=l tolOO 

input#5,a$:a$(i,aa)=a$ :next :clos 
e5 

ifi$= M spreekwoorden" then tj$="000 

040":elsetj$="000020" 

return 


111 


rem * antwoord invoer en vergelijk 
★ 


112 

113 

114 

115 

116 


if op$="j"then printchr$(27)"1" 
nl7 

ifop$="n" then print"[SHIFT-CLR]"; 
new 

gotol09 


rem *** fanfare *** 


color5,2:aa$="":ti$="000000":w=l:d 
o:gett$:poke2599,0:ift$=chr$(13) t 
hen exit 

ift$=chr$(20)then goto55 
ift$=chr$(92) ort$=chr$(95) then g 
oto94 

ifti$>tj$ then sc=sc-10:aa$="":win 

dowl,11,17,17,1:goto 34 

aa$=aa$+t$:printt$; 

loop:poke2599,1:return 

color5,11:aa$="": ti$= M 000000" :w=l: 

do:gett$:poke2599,0:ift$=chr$(13) 

then exit 

ift$=chr$(20)then goto61 
ift$=chr$(92) ort$=chr$(95) then g 
otolOO 

ifti$>tj$ then ss=ss-10:aa$="":win 
dow21,11,37,17,1:goto 34 
aa$=aa$+t$:printt$; 
loop:poke2599,1:return 


117 


118 


119 


r$="v3o2wgv2044w$bvlo5w$evlo5wfv2o 

4w$bv3o2wfv3o2h$ev2o4h$bvlo5hgq$ev 

2o4hgv3o2hcvlo5qgvlo5hfv2o4h$bv3o2 

hdh$bv2o3h$bvlo4h$b" 

re$="vlo5qgv2o4h$bv3o2h$evlo5q$bqf 

v2o4h$bv3o2qdqcvlo5q$evlo5hdv2o2hg 

v3olh$bhgv2o2h$evlo4h$b" 

tempolO:vol8:envelope. , 3, . ,15,.,1: 

envelopel,2,3,13,6,.,1 

play"vlt0x0v2t0x0v3tix0":playr$:pl 

ayre$:playre$:return 


120 

121 

122 

123 


rem 


•kick 


sprite data *** 


124 


125 


126 


rem *** einduitslag *** 


dataO,1,128,0,2,64,0,4,32,0,12,16, 
0,30,8,0,59,4,0,119,130,0,238,194, 
1,221 

data228,3,187,184,7,119,112,14,238 
,224,21,221,192,19,187,128,17,119, 
0,16 

data238,0,16,92,0,24,56,0,28,16, 0, 
31,224,0,0,0,0,0 

print"alleen[SPACE]nummers[SPACE]( 
1-5)":sleepl: goto21 


windowO,0,39,24,1 

ifsc=ssthencolor5,2:char,12,12,"[S 
PACE]gelijk[SPACE]spel[SPACE]",l:g 
otol09 

char,12,12,"de[SPACE]winnaar[SPACE 
]is[SPACE]", 1 

ifsc>ssthencolor5,4:gosubll4:sleep 
3:print"[CTRL-9][SPACE]"+nl$+"[SPA 
CE] [CTRL-0 ]":gotol09 
colorS,9:gosubll4:sleep3 rprint"[CT 
RL 9][SPACE]"+n2$+"[SPACE] [CTRL-0] 


127 

128 

129 

130 

131 


rem *** Windows *** 


windowwl,wb,wr,wo,1 

print"[COM-A]";:fori=wl+ltowr-l:pr 

int"[SHIFT-*]";:next:print n [COM-S] 


M 


132 

133 

134 


fori=wb+ltowo-lrprint"[SHIFT--]";t 
ab(wr-wl) rprint"[SHIFT--]" rnext 
print"[COM-Z]";rfori=wltowr-l:prin 
t"[SHIFT-*]";rnextrprint"[COM-X]" 
return 


M 



char,5,20,"opnieuw[2xSPACE]j[SPACE 
]/[SPACE]n[SPACE]"rgetkey op$ 


EINDE LISTING klinkers zoek 
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34 

regel 

27 

146 

regel 

54 

5 

regel 

81 

11 

regel 

108 

75 

126 

regel 

28 

152 

regel 

55 

151 

regel 

82 

226 

regel 

109 

196 

208 

regel 

29 

182 

regel 

56 

208 

regel 

83 

19 

regel 

110 

11 

228 

regel 

30 

129 

regel 

57 

198 

regel 

84 

6 6 

regel 

111 

133 

194 

regel 

31 

61 

regel 

58 

253 

regel 

85 

142 

regel 

112 

35 

11 

regel 

32 

55 

regel 

59 

219 

regel 

86 

58 

regel 

113 

58 

60 

regel 

33 

44 

regel 

60 

241 

regel 

87 

90 

regel 

114 

126 

126 

regel 

34 

157 

regel 

61 

30 

regel 

88 

58 

regel 

115 

58 

30 

regel 

35 

12 

regel 

62 

226 

regel 

89 

82 

regel 

116 

115 

157 

regel 

36 

45 

regel 

63 

49 

regel 

90 

201 

regel 

117 

185 

135 

regel 

37 

234 

regel 

64 

47 

regel 

91 

53 

regel 

118 

252 

171 

regel 

38 

125 

regel 

65 

241 

regel 

92 

230 

regel 

119 

131 

68 

regel 

39 

76 

regel 

66 

58 

regel 

93 

166 

regel 

120 

58 

70 

regel 

40 

188 

regel 

67 

68 

regel 

94 

187 

regel 

121 

124 

253 

regel 

41 

4 

regel 

68 

58 

regel 

95 

130 

regel 

122 

58 

136 

regel 

42 

255 

regel 

69 

43 

regel 

96 

198 

regel 

123 

135 

112 

regel 

43 

48 

regel 

70 

9 

regel 

97 

89 

regel 

124 

166 

137 

regel 

44 

130 

regel 

71 

176 

regel 

98 

58 

regel 

125 

44 

236 

regel 

45 

137 

regel 

72 

234 

regel 
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Triple 128 


De Commodore 128 lijkt vaak een achter gebleven kind uit de commodore familie te 
zijn. Voor de eerder verschenen C 64 is er zo onnoemelijk veel software verkrijgbaar, 
dat we het idee hebben dat er niets meer is overgebleven voor de C 16 en de C 128. 
Omdat na het verschijnen van de 128 de Amiga vrij snel ten tonele kwam bleef er voor 
de 128 bijna helemaal niets over. Zeer verheugd zijn we dan ook dat er toch een aan¬ 
tal firma’s zijn die het wagen programma’s voor de commodore 128 uit te brengen. 

Kasboek 128 


D e Firma DataHome Software uit Amsterdam heeft een aantal serieuze 
software pakketten voor deze toch uitstekende computer op de markt 
gebracht. We hebben er een tijdje (tot volle tevredenheid) mee gewerkt. 


We hebben Kas-Bank en Fakturering 
C 128 voor u bekeken. Beide pro¬ 
gramma’s worden geleverd op een 
beveiligde diskette. Het is niet moge¬ 
lijk een kopie van deze diskettes te 
maken. Gelukkig wordt er op een 
aparte dataschijf gewerkt zodat de ori¬ 
ginele software alleen wordt gebruikt 
om het programma te starten. De 
handleiding die bij de programmatuur 
wordt geleverd is meer dan compleet. 
Alles is er op een eenvoudige manier 
terug te vinden. Iedere gebruiker krijgt 
een uniek toegangsnummer. Zonder 
dit nummer is het niet mogelijk de pro¬ 
grammatuur te gebruiken. Dit houdt 
ook in dat illegale kopieën ten eerste 
geen zin hebben, maar er is ook te 
achterhalen waar de kopieën ge¬ 
maakt zijn. Zeker in deze tijd is dat 
geen overbodige luxe. 


Verzonden 


Ontvangen 


Fakturen 


70.000 _I 

65.000 _J 
60.000 _J 

55,000 _I 

50.000 _I 

15.000 _I 

40.000 „J 

35.000 _I 

30.000 _I 

25.000 _I 

20.000 _I 

15.000 _I 

10.000 _I 

5.000 _I 

1.000 _I 

_0_I 

Kwartaal... 1234 


70.000 _I 

65.000 _J 

60.000 _I 

55.000 __l 



350 _I 

325 _I 

300 _I 

275 _I 

250 _I 

225 _I 

200 _I 

275 _I 

250 _I 

225 _I 

200 _I 

175_I 

150_I 

100_I 

75_I 

_0_I 

12 3 4 




De programmatuur is geschikt voor 
een Commodore 128 en een Commo¬ 
dore 128 D. Werkt U met een "losse" 
128 dan is alleen de dubbelzijdige 
1571 diskdrive bruikbaar, zowel de 
1541 als de 1570 zijn voor dit systeem 
ongeschikt. Er wordt gebruik gemaakt 
van de 80 koloms-mode, en is volledig 
in kleur. Zodat alle voordelen van de 
Commodore volledig benut worden bij 
het gebruik van een goede monitor, al 
werkt het geheel ook met een mo¬ 
nochrome monitor. De printer zal geen 
problemen opleveren, alle printers die 
op de Commodore kunnen worden 
aangesloten zullen ook met dit pro¬ 
gramma probleemloos werken. 

KasBank Cl28 Boekhouding 

Het programma stelt U in staat 499 
grootboek rekeningen in te voeren. Er 
kunnen maximaal 2499 mutaties per 
boekjaar worden behandeld. Dit is 
voor de meeste kleine tot middel klei¬ 
ne ondernemingen ruim voldoende. 


Alle opdrachten, wijzigingen, bestu¬ 
ringen gaan via het hoofdmenu. Hier¬ 
van uit worden er submenu’s en pro¬ 
cedures opgeroepen. Hierdoor kan ie¬ 
dereen op een eenvoudige manier 
met het programma omgaan. Zelfs 
zonder boekhoudkundige kennis is na 
enkele dagen het programma pro¬ 
bleemloos te gebruiken. Na het op¬ 
starten van het programma moeten er 
een aantal gegevens worden inge¬ 
voerd. Allereerst de datum en de tijd, 
deze zijn zeker voor de boekhouding 
belangrijk. Een apart hoofdstuk is de 
toegangscode, bij de aanschaf van 
het programma heeft U een unieke 
toegangscode gekregen, niemand an¬ 
ders weet deze code. U heeft drie¬ 
maal de kans de goede code in te vul¬ 
len lukt dit niet dan wordt het program¬ 
ma gereset. Nadat U deze procedure 
heeft doorlopen moet U de dataschijf 
in de diskdrive plaatsen. Is deze dis¬ 
kette nog niet gemaakt dan dient dit 
eerst te gebeuren. Gelukkig kan dit, in 


tegenstelling tot veel andere program¬ 
matuur, vanuit het programma. Het is 
voldoende om de juiste optie te kie¬ 
zen, en enige minuten te gaan door¬ 
brengen met andere bezigheden. Na¬ 
dat de dataschijf is aangemaakt moe¬ 
ten er een aantal gegevens op worden 
aangebracht, naam, adres, woon¬ 
plaats enz. Belangrijke gegevens 
hierbij zijn ook het hoge en lage BTW 
tarief. Na het starten van het program¬ 
ma moet er een begin saldo worden 
opgegeven. Deze saldi moeten van 
de periode voorafgaande aan deze 
zijn, maar dat is nogal duidelijk. In 
deze voor ondernemers moeilijke tij¬ 
den kan het ook voorkomen dat een 
saldo negatief is, ook hierin is voor¬ 
zien, een min-teken voor het bedrag 
en het wordt als een negatief saldo 
geboekt. De funktietoetsen zijn er om 
het de gebruiker makkelijker te ma¬ 
ken. Ook in dit programma worden zij 
dus gebruikt. Deze funktietoetsen 
hebben in de verschillende onderde- 
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len een eigen karakter. Onderaan het 
scherm wordt weergegeven wat voor 
funktie de verschillende funktietoet- 
sen in dit onderdeel hebben. 

Integraal boekhouden 

Met het KASBANK programma is het 
mogelijk, mits U in het bezit bent van 
het ALFA factureringsprogramma, de 
verzonden en ontvangen facturen, 
maar ook de verschillende transacties 
geheel automatisch te verwerken. De 
mutaties, in goed Nederlands de ver¬ 
anderingen, worden naar het kasbank 
systeem overgezet. Hierbij worden de 
"boeken" volledig bijgewerkt. Dit kan 
zeker voor een middelgroot bedrijf 
uren werk uitsparen. 


vraagd. Ook hier geldt, voor het pro¬ 
gramma verder wordt geladen moet 
eerst de toegangangscode worden in¬ 
gevuld. 

Met dit uitgebreide factureringspro¬ 
gramma kunnen 500 relaties, dit kun¬ 
nen zowel crediteuren als debiteuren 
zijn, worden verwerkt. Voor de men¬ 
sen zonder boekhoudkundige kennis, 
dit zijn personen die geld van uw krij¬ 
gen en personen van wie geld te goed 
is. Deze debiteuren en crediteuren 
kunnen zowel op naam als op num¬ 
mer worden opgevraagd. Dit nummer 
wordt automatisch bepaald en begint 
met 1001. Er wordt gewerkt met een 
voorraadbestand, dat kan maximaal 
1000 verschillende artikelen omvat¬ 
ten. Ook hier geldt dat het nummer au- 
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Het is mogelijk met vaste grootboek 
rekeningen te werken, in dit geval 14 
stuks, hierbij worden de bedragen au¬ 
tomatisch verwerkt. U kunt ook zelf¬ 
standig rekeningen openen, de muta¬ 
ties worden nu niet automatisch door¬ 
geboekt. Beide systemen hebben hun 
voor en nadelen, welke U kiest is erg 
afhankelijk van de situatie. Doordat 
het programma volledig menuge- 
stuurd is kan er bijna niets mis gaan. 
Vanuit het hoofdmenu komt U in de di¬ 
verse submenu’s, hierdoor blijft het 
geheel overzichtelijk. Nagenoeg alle 
boekhoudkundige bewerkingen zijn 
met dit programma mogelijk, op elk 
gewenst moment is er een totaal over¬ 
zicht van uw financiële toestand be¬ 
schikbaar. Dit kan op het beeldscherm 
maar ook via de printer. 

Alfa Facturering 

Met behulp van dit programma bent U 
in staat volledig automatisch facturen 
te versturen. 

Na het "booten" van de diskette wordt 
hier naar de datum en de tijd ge- 


tomatisch wordt bepaald, hierdoor is 
de kans op dubbele nummers uitge¬ 
sloten. 

Éénmalig moet er een dataschijf wor¬ 
den aangemaakt. Dit gebeurt vanuit 
het hoofdmenu. Er kan zowel een ge¬ 
formatteerde als een niet geformat¬ 
teerde diskette worden gebruikt. Van¬ 
uit het programma wordt de dataschijf 
helemaal klaargemaakt. Dit geheel 
duurt ongeveer 5 minuten. Ook bij dit 
programma geldt dat de standaard 
gegevens moeten worden ingevuld. 
Niet alle gegevens behoeven altijd te 
worden ingevoerd, heeft U bijvoor¬ 
beeld formulieren met een voorbe¬ 
drukte bedrijfsnaam, dan zijn naam en 
adres niet meer van belang. Wel moet 
hier worden aangegeven wat voor pa- 
pierlengte er wordt gebruikt. 

De grafische presentatie laat in een 
grafiek zien een overzicht van de om¬ 
zetten per kwartaal. Ook het aantal 
facturen dat is verzonden is een on¬ 
derdeel van deze grafiek. Zelfs een 
(eventuele) omzetstijging cq. daling 
wordt in een grafische balk uitge¬ 
beeld. Het financiële verslag kan U op 


elk gewenst moment laten weten van 
wie U nog geld te goed heeft, en hoe¬ 
veel of wie en wat U nog moet betalen. 
Hierin worden behalve totalen van de¬ 
biteuren en crediteuren ook vermeld 
het aantal gemaakte facturen, ver¬ 
werkte facturen enz. De functietoet¬ 
sen hebben ook hier in de verschillen¬ 
de onderdelen een verschillende 
functie gekregen. Door de besturing 
via menu’s en submenu’s is het ge¬ 
heel, ondanks de omvang en de mo¬ 
gelijkheden, uitermate overzichtelijk 
gebleven. Facturen printen gaat op 
dezelfde wijze, via het hoofdmenu 
naar het printmenu, het factuur¬ 
nummer wordt automatisch toege¬ 
kend. Totaal 30 items kunnen er wor¬ 
den afgedrukt, rechtsonder op het 
beeldscherm wordt vermeld: het fac¬ 
tuurnummer, debiteurnummer, de 
prijsgroep en de voorraad. 

Er kan met 5 verschillende Valuta’s 
worden gewerkt, Belgische, Zwitserse 
en Franse franken, Engelse ponden 
en Duitse marken, wordt hiervan ge¬ 
bruik gemaakt dan wordt er geen 
BTW berekend. Natuurlijk wordt er 
verder rekening gehouden met kortin¬ 
gen, betalingstermijnen en de ver¬ 
schillende BTW percentages. Een ex¬ 
tra mogelijkheid geeft een extra regel 
die op de factuur kan worden meege¬ 
print. Hierin kan een aankondiging 
voor een nieuw product staan, maar 
ook een boodschap of een wens. Er 
kunnen rapporten, maar ook aanma¬ 
ningen worden geprint, ook behoort 
tot de mogelijkheden het printen van 
adresetiketten, dit bijvoorbeeld voor 
een mailing. Ook dit programma kan 
de ondernemer veel tijd en ergernis 
besparen. 

De programma’s zijn verkrijgbaar bij 
Data Home in Amsterdam. Na aan¬ 
schaf heeft U recht op een unieke ser¬ 
vice, indien er zich problemen voor¬ 
doen is er altijd telefonisch een be¬ 
roep op deze firma te doen, 24 uur per 
dag, 7 dagen in de week. Het fakture- 
rings programma kost ƒ 299,- en voor 
het KasBank moet U ƒ 399,- neertel¬ 
len. Voor inlichtingen tel: 020 - 837367 

Conclusie: 

Prima software pakketten die elk op 
zich een prima investering zijn maar 
als totaalpakket een uitkomst zijn voor 
de ondernemer die over een Commo¬ 
dore 128 beschikt, of deze speciaal 
voor de administratieve doeleinden 
wil aanschaffen. 

RG 
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Het Osdorpse PC House is een bedrijf dat zich geheel heeft toegelegd op de video- en 
grafische mogelijkheden van de Amiga 2000 en Apple Mac II. Binnen korte tijd is PC 
House expert geworden op het gebied van videokoppelingen aan de Amiga, kabel¬ 
kranten en In-House communication. Alleen de beste kwaliteit geldt en zo nodig wordt 
de ontbrekende hard- en software zelf vervaardigd of onder strenge specificaties uit¬ 
besteed. 


wicht l 
Pélisk 

‘mm, 


Kabelkrant en DTV met de 
68000 


PC House expert in videokoppelingen 

I edereen kent wel die flitsende TV-animaties en fraaie teksten. Geen enke¬ 
le zichzelf respecterende omroep of kabelkrant kan meer zonder flitsende 
logo’s, programma-animaties, gecomputeriseerde kaarten met files of 
weersvoorspellingen en ook de reklame staat bol van allerlei special effects. 

Minder bekend is het feit dat voor het 
maken van dergelijke video- en foto¬ 
grafische trucages geen tonnen ver¬ 
slindende apparatuur meer vereist is. 

Met een Amiga of Mac, een genlock, 
een PAL-encoder en een digitizer kan 
iedereen zijn eigen videostudio of ka¬ 
belkrant beginnen. 

Het hart van deze low-budget kabel¬ 
krant of videostudio wordt gevormd 
door de Commodore Amiga Personal 
Computer of desgewenst een Mac II. 

Dat klinkt wellicht wat eng als u aan 
moeilijke programma’s en specialisti¬ 
sche aansluitingen denkt. Gelukkig 
valt dat allemaal erg mee. De bijbeho¬ 
rende videosoftware is behoorlijk ge¬ 
bruiksvriendelijk en de aansluitingen 
zijn niet moeilijker dan die bij een 
amateurvideostudio. Het enige wat u 
echt zelf mee moet brengen is een 
flinke dosis artistiek talent en wat ge¬ 
duld. Dan ligt Desktopvideo (DTV) 
binnen ieders bereik. 
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De Amiga 

In tegenstelling tot de IBM PC is bij het 
ontwerp van de Amiga computers van 
begin af aan al rekening gehouden 
met DTV- toepassingen, artwork en 
het digitaliseren plus bewerken van 
afbeeldingen. Daartoe wordt de pro¬ 
cessor, de Motorola 68000 CPU, on¬ 
dersteund door grafische teken- en 
animatie-chips in combinatie met een 
groot videogeheugen. Bovendien 
biedt de Amiga 4096 verschillende 
kleuren, een hoog oplossend vermo¬ 



gen (maximaal 640 x 512 punten voor 
PAL) en aansluitingen voor video- 
randapparatuur. In combinatie met de 
geschikte soft- en hardware kan de 
Amiga animeren, computerbeelden 
met video combineren, foto’s digitali¬ 
seren, titels maken en art work (zelfs 
3 dimensionaal) tekenen. De enige 
beperking is de fantasie van de ge¬ 
bruiker. 

In de praktijk is er sprake van drie ver¬ 
schillende Commodore Amiga com¬ 
puters. Het meest veelzijdige model is 
de professionele Amiga 2000 die met 
een harde schijf en een groot RAM- 
geheugen (daar gaat dus veel video- 
informatie in) uitgerust kan worden. 
Deze machine is met een gewone 20 
MegaByte (MB) harde schijf en 2 tot 4 
MB aan vrij RAM in staat uw stoutste 
videodromen te vervullen. De prijs ligt 
afhankelijk van de uitrusting tussen de 
ƒ 4.000,-en ƒ 6.000,-. 


Het model 1000 is hier en daar of 
tweedehands nog te koop en biedt on¬ 
geveer dezelfde videomogelijkheden 
als de Amiga 1000. Uitbreiding is he¬ 
laas moeilijker dan bij de 2000, maar 
dat is voor de meeste videotoepassin- 
gen geen groot bezwaar. 

De Amiga 500 is bij elke computer¬ 
zaak en tal van warenhuizen voor 
rond de ƒ 1.200,- te koop. Met deze 
computer kan de video-amateur al 
aardig uit de voeten. Voor grote toe¬ 
passingen is het geheugen te beperkt. 
Voor kabelkranten, video-clubs, com¬ 
merciële video-producenten en TV- 
makers raadt PC House de Amiga 
2000 aan. Voor amateurtoepassingen 
zijn de modellen 500 en 1000 aan¬ 
zienlijk goedkoper. 

Software 

De Amiga maakt optimaal gebruik van 
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flniga Uideoconputer net alle nogelljkheden 


de voor de Motorola 68000 micropro¬ 
cessor en grafische coprocessoren 
geschreven teken- en videosoftware. 
Met Paint- of tekenprogramma’s kunt 
u echte computerkunst creëren of ge¬ 
woon aanvullende tekeningetjes en 
andere video-illustraties maken. Dat 
kan in tal van verschillende kleuren, in 
2D en zelfs 3 dimensionaal. De gra¬ 
fisch ontwerper van uw bedrijf, kabel¬ 
krant, reclamebureau kan er direkt 
mee aan de slag en de gemaakte 
beelden op video of de kabel zetten. 
Logo’s, sierlijke teksten, en achter- of 
voorgrond-graphics vormen geen en¬ 
kel probleem. Voorbeelden van zulke 
tekenpakketten zijn Deluxe-Paint en 
Digi-Paint. 

De speciale videosoftware werkt als 
een echt filmscript. Op het scherm 
wordt bijvoorbeeld op een tijdbalk 
aangegeven waar en wanneer een 
tekst (af/ondertiteling), achtergrond of 
figuur dient te verschijnen en wat er 
vervolgens moet gebeuren. Zo kunt u 
een tekst in het midden van het 
scherm snel groter laten worden, om 
twee verschillende assen laten rote¬ 
ren terwijl de juiste belichting op de 
voet volgt en vervolgens deze tekst 
weer laten verdwijnen. De gebruiker 
geeft aan welke akties moeten plaats¬ 
vinden. De Amiga en de software be¬ 
rekenen de nodige stappen en voeren 
deze dan vlekkeloos uit. Is de anima¬ 
tie geslaagd dan wordt deze naar de 
videorecorder overgespeeld. Andere 
special effects van videosoftware zijn 
onder andere fade in/out, kleurveran¬ 
deringen, vormveranderingen en 3D- 
effekten. De meeste pakketten kun¬ 
nen de met de tekensoftware ge¬ 
maakte figuren gebruiken. Bekende 
videosoftware zijn de pakketten De- 
Luxe Video, Aegis Animator en Video- 
scape. 

Een andere mogelijkheid bieden de 
zogenaamde slide-shows, een op 


diskette opgenomen reeks plaatjes 
met begeleidende teksten die op de 
kabelkrant of In-House monitoren ver¬ 
toond wordt. PC House heeft zelf het 
pakket Fenesta ontwikkeld dat uit een 
editor, slideshow en communicatie- 
programma bestaat. 

Randapparatuur 

Computervideo maakt van andere 
signaalcodes gebruik dan de gangba¬ 
re composietvideo- en PAL in/outputs. 
In afwachting van RGB video appara¬ 
tuur zal het Amiga-signaal dus op een 
of andere wijze vertaald moeten wor¬ 
den. Daartoe zijn er twee mogelijkhe¬ 
den: 

• Een PAL-encoder maakt van het 
Amiga-signaal een bruikbaar TV- 
signaal. Voor kabelexploitanten is 
het hier zaak om stevig in de 
beurs te tasten. Een goede PAL- 
encoder geeft een broadcasting- 
kwaliteit die nauwelijks van de 
conventionele TV-weergave te on¬ 
derscheiden valt. Een goedkoop 
model geeft doorgaans een beeld 
dat slechts voor de huiselijke kring 
verteerbaar is. 

• Een Genlock heeft een tweeledi¬ 
ge funktie. De hoofdfunctie is om 
een computervideosignaal met 
een bestaand videosignaal tot een 
soort superimpose-beeld te com¬ 
bineren. Bijvoorbeeld titels of een 
animatie over een real live- ach¬ 
tergrond of echte mensen door 
een computerlandschap laten 
wandelen. Desgewenst kan een 
Genlock ook het Amiga-signaal 
gewoon in een composietvideo- 
output omzetten. De gebruiker kan 
de computerbeelden dan rechts¬ 
treeks op de recorder overnemen. 
Ook voor de genlocks geldt dat 


extra investeren zich in een betere 
kwaliteit en meer mogelijkheden 
terugbetaalt. Voor huiskamerge¬ 
bruik zijn genlockers beneden de 
ƒ 1.000,- verkrijgbaar. Professio¬ 
nele apparaten kosten circa 
ƒ4.000,-. 

PC House levert IVS Genlock. Dit in 
Nederland gebouwde apparaat biedt 
naast de genoemde genlock-opties 
tevens mixen in meerdere kleuren, 
fade in/out en de mogelijkheid tot aan¬ 
sluiting van een PAL-encoder of RGB- 
splitter. Kwalitatief behoort deze gen¬ 
lock tot de beste op de markt. 

Een digitizer of frame grabber maakt 
het mogelijk om videobeelden als los¬ 
se plaatjes, frames, te digitaliseren en 
ze vervolgens met behulp van de 
paintsoftware te bewerken. Naast 
live-opnamen kunnen natuurlijk ook 
bestaande foto’s en andere illustraties 
met behulp van een videocamera in 
de Amiga gevoerd worden. Videodigi- 
tizers zijn er in verschillende prijsklas¬ 
sen. PC House heeft de VD-3 digiti¬ 
zer met bijbehorende RGB-splitter 
(voor het digitaliseren in kleur zonder 
rood-, blauw- en groen-filters) in haar 
pakket. 

Voor een echte DTV-studio valt verder 
nog te denken aan meerdere videore¬ 
corders, een meng/montage-unit en 
een special effect generator (SEG) of 
conventionele spiegelreflexen met 
een still-video-achterwand. Daarmee 
zal het in de nabije toekomst mogelijk 
zijn om videofoto’s rechtstreeks in de 
Amiga te voeren. 

De Amiga-mogelijkheden 

Een eenvoudige en goedkope moge¬ 
lijkheid is een video- of slideshow op 
diskette. Met behulp van teken- en 
an i mati e/presentatie-software wordt 
een leuk videoprogramma gemaakt 
en vervolgens op een floppy gezet. Dit 
programma kan dan verder volauto¬ 
matisch als een demo of info-show 
draaien. De kosten zijn beperkt tot 
een Amiga en software. 

De koppeling aan video geeft ware 
desktopvideo-faciliteiten. Met be¬ 
hulp van een relatief simpele bureau- 
opstelling zijn professionele videopro- 
dukties tegen geringe kosten moge¬ 
lijk. Afhankelijk van wat u al in huis 
heeft gaat een eenvoudige opstelling 
ƒ 2000,- tot ƒ 4.000,- kosten en een 
volledig uitgeruste studio circa 
ƒ 15.000,-. 

Niet iedereen zal een kabelkrant wil¬ 
len beginnen. Toch zullen er voldoen¬ 
de gemeenten, en buurt- en winkel¬ 
iersverenigingen zijn die daar wel voor 
voelen, maar terugschrikken voor de 
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kosten. Voor hen is een complete Ami- 
ga-installatie te huur voor ongeveer 
ƒ 700,- (excl. BTW en de eigen perso¬ 
neelskosten!) per maand. En dat be¬ 
drag verdient u met een advertentie 
zo terug. PC House levert gebruiks¬ 
vriendelijke kabelkrant-software 
waarmee veel tijd bespaard kan wor¬ 
den. Desgewenst is een netwerkcon- 
figuratie mogelijk. 

De markt voor In-House Communi- 
cation is sterk groeiende. Vele bedrij¬ 
ven, ziekenhuizen, conferentie-oor- 
den, hotels en gemeentelijke instellin¬ 
gen informeren hun bezoekers, klan¬ 
ten en werknemers via beeldscher¬ 
men met beeldkranten, (reclame)- 
spots en andere visuele informatie¬ 
systemen. Een andere toepassing is 
het onderwijs. In beide gevallen biedt 
de Amiga veel mogelijkheden voor re¬ 
latief geringe investeringen. 


Tekenstudio 

Tot slot de artistieke toepassingen. 

De Amiga is een complete tekenstu¬ 
dio en geschikt voor het ontwerpen 
van art work en het bewerken van ge¬ 
digitaliseerde foto’s. Uw eigen fanta¬ 
sie is daarbij de enige limiet. Voor het 
uitdraaien van deze kunstwerken is ui¬ 
teraard wel een kleurenprinter nodig. 
De makers van zogenaamde busi¬ 
ness graphics (bedrijfspresentaties 
in de vorm van grafieken, artwork en 
reklamedia’s) kunnen met de Amiga 
alle kanten uit. Geanimeerde grafie¬ 
ken, tekstdia’s, grafische voorstellin¬ 
gen (ook CAD/CAM) zijn als polaroid¬ 
foto af te drukken of op dia over te zet¬ 
ten. Wie het onderste uit de kan wil 
kan de Amiga met behulp van PC 
House apparatuur zelfs aan een Ge- 
nigraphics koppelen. 


Cybertronic Art, 

of de dood van de kunstenaar 

T ot voor kort gaapte er een enorm gat tussen dure grafische computers 
als de Paintbox of de 3D systemen van Iris, Silicon Graphics en Quantel, 
en de beperkte grafische mogelijkheden van microcomputers. 


Sinds de komst van de Amiga en ande¬ 
re grafisch begaafde computers is daa¬ 
rin snel verandering gekomen. Soft¬ 
warehuizen komen met steeds geraffi¬ 
neerdere pakketten op de markt, en in 
de hardware-sector wordt alom ge¬ 
werkt aan een uitbreiding van de grafi¬ 
sche mogelijkheden. En wat geldt voor 
de visuele aspecten, gaat ook op voor 
het geluid: met een eenvoudige Mac of 
Amiga kan nu al een professionele di¬ 
gitale geluidsstudio worden ingericht. 

Internationaal 

Weinig computergebruikers zijn zich 
nog bewust van de creatieve mogelijk¬ 
heden van hun apparaat. De interna¬ 
tionale Cybertronic Art Group wil daa¬ 
rin verandering brengen. De groep 
opereert sinds midden ‘87 vanuit Am¬ 
sterdam, en heeft vestigingen in onder 
meer Parijs, Berlijn, Londen en Barce- 
lona. 

Een van de initiatiefnemers is Louis 
Molnar uit Parijs. "Waar wij eigenlijk op 
uit zijn," zegt hij lachend, "is om de kun¬ 
stenaar om zeep te helpen. De compu¬ 
ter geeft iedereen de mogelijkheid om 
creatief te zijn, om een idee te vertalen 
in een beeld op het scherm. Je hebt 
geen speciale techniek nodig." 

De Cybertronic Art Group houdt zich 
bezig met het doorgeven van informa¬ 


tie over creatief computergebruik als 
een van de werktuigen in een produk- 
tielijn. Men richt zich vooral op profes¬ 
sionele gebruikers. Er wordt gewerkt 
op drie niveau’s. Voor de beginners zijn 
er cursussen van acht lessen, die de 
gebruiker inwijden in de creatieve mo¬ 
gelijkheden van de computer: men 
leert te werken met grafische, anima¬ 
tie- en muziekprogramma’s. Voor het 
moment, zegt Molnar met nadruk, heb¬ 
ben we gekozen voor de Amiga: die 
heeft tot nu toe de beste prijs/prestatie¬ 
verhouding. 

high-tech-labs 

Op het tweede niveau, dat van de 
workshops, gaan de leden van de Cy- 
bertronics Art Group dieper in op een 
aspect van het creatief computen. Men 
werkt een of meer avonden per week 
onder leiding van een professional aan 
bijvoorbeeld animatie, video-titling, of 
het gebruik van een muziekpakket met 
MIDI. Het derde niveau is dat van de 
’high-tech-labs’: professionals uit ver¬ 
schillende vakgebieden slaan de han¬ 
den ineen bij het onderzoeken van een 
specifiek probleem. 

De belangstelling voor de Cybertronics 
Art Group uit de verschillende hoeken 
is groot: grafische ontwerpers, archi¬ 
tecten en videomakers stromen toe. 
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Bedrijfsprofiel PC House 

PC House is een volle dochter van 
Multihouse TSI die zich toelegt op de 
Amiga- en Macintosh-toepassingen 
voor videoprodukties, TV-uitzendin- 
gen, kabelkranten, In-House Commu- 
nication en grafische toepassingen. 
Behalve het verkopen van ‘Amiga-stu- 
dio’s’ en grafische of videoconfigura- 
ties, houdt PC House zich ook bezig 
met het zelf ontwerpen van software 
en hardware. Bijvoorbeeld het kabel- 
krantpakket Fenesta met een editor, 
slideshow en PAL-encoder, en de IVS 
genlock. Verder biedt het bedrijf appa¬ 
ratuur voor het overzetten van compu¬ 
terbeelden op videoband, het maken 
van polaroid hardcopies, een Amiga 
Transputer, kleurenprinters en grafi¬ 
sche service. Voor info: 020-106940. 

U.S. 



Waarom is het voor iemand die op het 
werk de beschikking heeft over sophis¬ 
ticated apparatuur, aantrekkelijk om in 
zijn vrije tijd te komen werken met een 
eenvoudige machine als de Amiga? 
Molnar: "Een apparaat als de Amiga 
heeft vrijwel dezelfde mogelijkheden 
als dure grafische computers. Welis¬ 
waar is de resolutie lager en zijn er 
minder kleuren, maar daar staat tegen¬ 
over dat de bediening eenvoudiger is. 
Bovendien: high-end apparatuur heeft 
een enorm hoge uurprijs, en daarom is 
er geen tijd voor experimenten. De ont¬ 
werpers die wij hier krijgen zijn de hele 
dag eenvoudigweg bezig opdrachten 
uit te voeren die ze krijgen van mensen 
die de mogelijkheden van de appara¬ 
tuur niet kennen. Hier kunnen ze naar 
hartelust experimenteren met machi¬ 
nes die dezelfde principes hebben. Er 
komen hier zelfs twee mensen die da¬ 
gelijks werken met een Quantel." 


Informatie over de Cybertronic Art 
Group: 020-716556 of 020-260728. 



61 









Amigo Hoek 


Amiga Nieuws 


D itmaal aandacht voor een groot aantal programma’s voor de Amiga. Voor 
deze krachtige machine, op de grens van hobby en professioneel ge¬ 
bruik, komt veel nieuwe programmatuur en hardware op de markt. Op deze 
pagina daarover korte berichten. 


Amigo Amigo 

De Amiga is een computer die bij ve¬ 
len aanslaat. Dit blijkt wel uit het gi¬ 
gantische aanbod van software. De 
grote broer hierbij is natuurlijk Ameri¬ 
ka. Er wordt gelukkig steeds meer 
software naar Nederland gehaald. Er 
zijn een aantal leveranciers die hierbij 
het voortouw nemen. Dat deze pro¬ 
gramma’s (bijna) altijd engelstalig zijn 
is voor een grote groep mensen geen 
probleem. Een grote groep Amiga ge¬ 
bruikers is echter de engelse taal niet 
machtig, we denken hierbij vooral aan 
de jeugd. Een aantal leveranciers 
brengen nu Nederlandstalige pro¬ 
grammatuur op de markt. Nederland 
is een relatief klein afzet gebied, dus 
eenvoudig is dat niet. 

Eén van deze leveranciers is Cour- 
bois uit Beuningen. Zijn assortiment 
Nederlandstalige software is inmid¬ 
dels uitgebreid tot meer dan 50 disket¬ 
tes. En hierbij zijn niet alleen spelle¬ 
tjes. We hebben een aantal van deze 
programma’s bekeken. 

Puzzel Mania 

Bij dit spel is het de bedoeling dat U 
een tekening die door de Amiga door 
de war is gegooid weer in de originele 
staat terug brengt. Dit lijkt een makke¬ 
lijke opgave, maar tijdens het werken 
blijkt dat uw eerste indruk niet altijd de 
juiste is. Er kan gekozen worden uit 
twaalf verschillende afbeeldingen. 
Het programma start op met een 
menu waar alle plaatjes staan weer¬ 
gegeven. Het aanwijzen met de muis 
om uw keuze te bepalen en daarna 
het klikken van de linkermuis knop is 
voldoende om het plaatje te voor¬ 
schijn te toveren. Nadat de tekening 
geladen is heeft U maar een paar se¬ 
conden de tijd om te kijken, de Amiga 
begint dan met het door elkaar gooien 
van de afbeelding. Het scherm is ver¬ 
deeld in twee gedeeltes, links het 
plaatje en rechts een menu. Naast het 
plaatje staat een pijl. Deze pijl is in het 
menu te verschuiven door hier links of 
rechts te kiezen en de linker muisknop 
in te drukken. Bij de optie schuiven 
schuift een balk, die door de pijl wordt 
aangewezen één blokje door. Doordat 
dit van links naar rechts, van boven 
naar onder en omgekeerd kan, zijn al¬ 
lerlei variaties mogelijk. Het menu 


geeft nog een paar extra mogelijkhe¬ 
den, het plaatje bekijken, draaien en 
terugkeren naar het hoofdmenu, om 
een ander plaatje te kiezen. 

Label designer 

Geen spelletje ditmaal, maar een se¬ 
rieus programma. Alle Amiga bezitters 
hebben er mee te maken, de etiketten 
op de 3,5 inch diskettes. Er kan hier 
ongelofelijk veel informatie op worden 


geschreven. Maar ook hier geldt, 
overdaad schaadt, hoe meer er op het 
etiket staat hoe onoverzichtelijker 
wordt het. Een goed plaatje vertelt 
meer dan duizend woorden, hier is 
dan de oplossing, combineer de tekst 
met een afbeelding. En hier komt de 
sterke kant van het programma label- 
designer naar voren. 25 standaard te¬ 
keningetjes kunnen samen met een 
tekst in één handeling worden geprint. 
De tekst kan in 20 verschillende letter¬ 
types c.q. groottes worden gemaakt. 
Een plaatje kan worden neergezet op 
elke willekeurige plaats op het etiket. 
De tekst kan worden ingegeven en 
per regel op de juiste plaats worden 
neergezet. Dit heeft als grote voordeel 
dat U het resultaat eerst kunt bekijken, 
voldoet het aan uw verwachtingen, of 
kan het beter op een andere plaats 
worden gezet. Met een tekenpro¬ 


gramma, b.v. dPaint kunt U uw eigen 
tekeningen maken en deze naar disk 
wegschrijven om bij de label-designer 
te gebruiken. Het programma is inge¬ 
steld voor een NEC P 6/7 printer maar 
deze is via de preferences voor iede¬ 
re printer geschikt te maken. Heeft U 
eenmaal een mooi ontwerp gemaakt 
dan is dit naar disk weg te schrijven en 
altijd weer te laden. Door dit program¬ 
ma kan het dus weer mooi worden in 
de diskettebakken. 


Werken met AmigaBasic 

Werken met AmigaBasic is eigenlijk 
een programma waar we mee zouden 
moeten beginnen. Iedere Amiga ge- 


Misser 

In nummer 7 van deze jaargang 
stond in het artikel over de Orga- 
technik in Keulen dat de bespre¬ 
king van de Amiga Workbench in 
datzelfde nummer zou gaan over 
een onofficiële versie. Johan en Jo- 
han hebben echter wel degelijk een 
officiële (Omega-) release van 
Commodore Nederland bekeken. 
Ook blijkt op de Commodore stand 
in Keulen wél een Amiga met Work¬ 
bench 1.3 tentoongesteld te zijn 
geweest. 

De redactie. 
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bruiker die wat meer wil doen met de 
computer krijgt vroeg of laat te maken 
met de Amiga Basic. Er zijn in Neder¬ 
land een paar goede Basic boeken te 
verkrijgen, ja zelfs in het Nederlands. 
Maar het probleem hierbij is vaak het 
opzoeken van een bepaalde functie. 
Nog moeilijker wordt het om even een 
bepaald onderdeel even te bekijken. 
De firma Courbois heeft het ei van Co- 
lumbus op de markt gebracht, de uit¬ 
leg en de voorbeelden gecombineerd 
op een diskette uitgebracht. Na het 
opstarten van het programma ver¬ 
schijnt er een donker beeld met de 
tekst "Werken met AmigaBasic" en de 
melding dat de rechter muis knop 
moet worden ingedrukt. Na het indruk¬ 
ken van deze knop verschijnt er boven 
in het beeld een rode balk, hierin 
staan een aantal opties, help, begin¬ 
ners, extra’s, gevorderden en routi¬ 
nes. Door met de muis-cursor naar 
één van deze teksten te gaan, 
verschijnen er een groot aantal extra 
keuzes. Hierbij moet de rechter muis¬ 
knop ingedrukt blijven. Heeft U al uit 
de mogelijkheden een keuze gemaakt 
dan kan de knop worden losgelaten. 
Nu wordt automatisch dit onderdeel 
van de diskette geladen. Elk onder¬ 
deel bestaat uit een tekst. Onderin het 
scherm ziet U een aantal keuzeblok- 
ken. U kunt nu de tekst makkelijk le¬ 
zen, is het meer dan 1 pagina dan kan 
keuzeblokje drie de gehele tekst een 
regel opschuiven. Een regel terug kan 
met blokje twee, het eerste blokje 
brengt U naar het begin van de tekst. 
Het aanklikken van het witte veld 
brengt de volgende pagina op het 
scherm. Staat er teveel informatie in 
de tekst om te onthouden dan brengt 
de optie print uitkomst. De tekst komt 
nu, mits U de printer aangesloten 
heeft staan, prachtig op papier. Op 
deze manier kunt U alle informatie die 
U nodig heeft uitprinten. De optie 
‘stop’ wordt gebruikt om naar het 
menu terug te keren. De HELP optie 
heeft een aantal onderdelen waar o.a. 
het gebruik van de diskette haarfijn 
wordt uitgelegd. Nagenoeg alle on¬ 
derdelen van de AmigaBasic worden 
behandeld, vanaf het begin tot en met 
het gebruik van machinetaal. Elk on¬ 
derdeel start met een uitleg over de te 
behandelen stof. Door deze uitleg, ge¬ 
combineerd met voorbeelden, is het 
geheel goed te begrijpen. Omdat veel 
gebruikers ex-64 bezitters zijn wordt 
een speciaal onderdeel gewijdt aan 
de verschillen met de commodore 64 
Basic en de uitgebreidere Amiga Ba¬ 
sic. Iedereen kan door dit programma j 


leren werken met Amiga Basic. Denkt 
U nu niet dat Basic niet krachtig ge¬ 
noeg is, er wordt veel commerciële 
programmatuur gemaakt in Basic. 
Doordat de Basic, na het doorlopen 
van deze "lessen”, voor U geen gehei¬ 
men meer heeft kunt U niet alleen uw 
eigen programma’s schrijven, maar 
ook programma’s van anderen veel 
beter leren begrijpen en eventueel 
aanpassen voor eigen gebruik. Pro¬ 
gramma’s worden voor een grote 
groep mensen geschreven dus zijn 
zelden geheel naar wens. 

Ook dit is weer zo een programma 
waar we ons van af vragen waarom 
wordt zoiets niet met elke nieuwe Ami¬ 
ga meegeleverd, voor de kosten hoe¬ 
ven ze het niet te laten, die zijn nihil 
ten opzichte van de aanschaf van de 
computer configuratie. De Amiga zal 
dan veel optimaler worden gebruikt. 



Een drietal pakketten uit de DeLuxe-stal: 
Print II, Paint II en Video. 

DeLuxe video 

Van de firma CAT & KORSH ontvin¬ 
gen wij ter recensie het programma 
Video de Luxe en De Luxe Produc- 
tions. Het zijn video animatie pro¬ 
gramma’s die de Amiga bijna wonde¬ 
ren laat verrichten. Dat de Amiga gra¬ 
fisch zeer sterk is weet bijna iedereen, 
maar in combinatie met deze software 


waren zelfs wij nog verbaasd. We 
hebben nog te kort kunnen werken 
met deze software. Voordat alle mo¬ 
gelijkheden van dit pakket volledig be¬ 
nut worden gaat er nogal wat tijd inzit¬ 
ten. We komen in een volgend num¬ 
mer uitgebreid op deze programma¬ 
tuur terug. 

Razzle Dazzle 

De bedoeling van dit spel is een balle¬ 
tje van start naar finish te brengen. 
Het veld waarover dit dient te gebeu¬ 
ren bestaat uit 8 kolommen en 7 rijen. 
Het geheel bestaat dus uit 56 velden. 
Hierop bevinden zich 55 velden met 
op elk blokje een stukje weg. Deze 
kan in een bocht lopen, naar links of 
rechts maar ook rechte stukken zijn 
aanwezig. Door dat ene lege vlakje 
kunnen we schuiven met de blokken. 
Dit gaat eenvoudig, maar niet met een 
balletje dat steeds verder de route af¬ 
legt. Het is dus zaak om zo snel mo¬ 
gelijk het eerste stuk weg klaar te heb¬ 
ben. Op het eerste level is het nog wel 
te doen, maar hoe verder hoe moeilij¬ 
ker het wordt. 

Amiga kleurboek 

Dit is een programma dat duidelijk is 
bedoeld voor de wat jeugdige gebrui¬ 
ker. De bedoeling van dit programma 
is om door middel van de muis een 
plaatje te kleuren. Door op de spatie¬ 
balk te drukken verschijnt er boven in 
het beeld een keuzebalk. Hierin staan 
20 verschillende kleuren, 8 verschil¬ 
lende vormen om een vlak te vullen en 
natuurlijk bestaat hier ook de moge¬ 
lijkheid een plaatje weer leeg te ma¬ 
ken. De werking is kinderlijk eenvou¬ 
dig, met de muis wordt er een keuze 
gemaakt voor een kleur door de juiste 
kleur aan te wijzen en éénmaal op de 
linker muisknop te klikken. Vervolgens 
wordt het vakje dat gekleurd moet 
worden aangewezen en nogmaals 
klikken. Er zijn 30 verschillende plaat¬ 
jes op de diskette aanwezig. Eigenlijk 
zijn alle bekende stripfiguren aanwe¬ 
zig, Donald Duck, Fc Knudde, de Flin- 
stones, Lucky Luck, Suske en Wiske, 
Oliver B. Bommel het zijn er teveel om 
ze allemaal op te noemen. Wilt U ze 
allemaal achter elkaar zien, dan is dit 
ook mogelijk. Er moet in dit geval ge¬ 
kozen worden voor de demo en alle 
tekeningen worden stuk voor stuk in¬ 
gekleurd en getoond. 
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Kamertje verhuren 

Ook dit is een spel voor de kleineren, 
al zullen vele volwassen stiekem dit 
programma opstarten om te kijken of 
er niet van de Amiga kan worden ge¬ 
wonnen. Het spel op zich behoeft 
waarschijnlijk geen uitleg, bijna iede¬ 
reen zal dit spel wel eens gespeeld 
hebben. Het spel kan zowel met twee 
spelers als alleen tegen de computer 
worden gespeeld. Het speelveld is 
een groot vlak met daarop een aantal 
punten. 15 van deze punten in de 
breedte en 11 in de lengte. Hiertussen 
moeten lijntjes worden gezet. Er kun¬ 
nen in het totaal dus 140 lijnen worden 
getrokken. Als er tegen de Amiga 
wordt gespeeld dan speelt deze met 
rood en begint. Is er een rode lijn ge¬ 
zet dan is het uw beurt om op een wil¬ 
lekeurige plaats een lijn te trekken. U 
mag op elke willekeurige plaats een 
lijn zetten, maar let er op dat uw te¬ 
genstander, door een lijntje te zetten 
geen vierkantje kan dicht maken. In 
het begin is dit erg makkelijk, maar 
hoe verder het spel vordert hoe moei- 
lijker dit wordt. Er komt een punt dat U 
niet meer kunt zetten zonder dat uw 
tegenstander een vlakje kan vullen, 
nu is het de kunst dit aantal zo laag 
mogelijk te houden. Het is een spel 
waar goed bij moet worden opgelet, 
maar niet het uiterste vraagt van uw 
concentratie. 

Empire 

Maker Interstel noemt de ruimtesimu- 
latie Empire het ‘Oorlogsspel van de 
eeuw’. Het doel van het spel is de ver¬ 
nietiging van de vijand op een nog vrij¬ 
wel onbekende wereld ergens in de 
ruimte, om zo de totale heerschappij 
over die wereld te veroveren. In het 
spel wordt men William P. Brown, ka¬ 
pitein van de U.G.A.S. Britannia. Het 
Krellan-imperium dringt in snel tempo 
het gebied van de alliantie binnen, alle 
hulpeloze planeten die ze op haar pad 
vindt vernielend. Empire is een strate¬ 
gische simulatie van globale oorlogs- 
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voering en het opbouwen van wereld¬ 
heerschappijen tussen twee tegenge¬ 
stelde krachten. 

Electronic Arts distribueert het pro¬ 
gramma in Europa, het is verkrijgbaar 
voor de Amiga, de Atari ST en de PC. 

Powerdrome 

Een geheel andere simulatie, maar 
wel in de ruimte spelend, is Powerdro¬ 
me, waar je een racepiloot bent die te¬ 
gen vliegers van vier andere melk¬ 
wegstelsels moet uitkomen in de race 
om de Cyberneufe trofee. Met 3D gra- 
phics en realistische motorgeluiden 
kan men tegenstanders langs zien ra¬ 
zen, crashen en botsen. Het is moge¬ 
lijk om met een speciale dual-datalijn 
tegen een andere speler op een ande¬ 
re computer te strijden. Ook dit spel is 
van Electronic Arts en is er voor Atari 
ST en Amiga. 

Casino Roulette 

CDS Software brengt voor de Atari ST 
en de Amiga Casino Roulette, een 
roulettespel dat realistisch is opge¬ 


bouwd. Op een Franse of Internatio¬ 
nale tafel krijgt men dezelfde kansen 
als in het echte gokspel, en als het 
geld op is is het spel afgelopen, net 
zoals in de echte wereld. Alleen wordt 
er nog niet met echt geld gespeeld. Er 
zijn in het spel wat mogelijkheden 
voor analyse van de afgelopen spel¬ 
len, zowel wat de verrichtingen van de 
spelers als het rollen van de balletjes 
betreft. 

Communicatie 

A-TALKIII is een nieuwe versie van A- 
Talk Plus van Oxxi, waarin meer pro- 
tocols zijn opgenomen. Er is een uit¬ 
gebreide Script-taal met een lesmo¬ 
dule om communicatie-taken eenvou¬ 
dig te kunnen automatiseren. Er is 
een telefoonlijst van 60 nummers, de 
snelheid van overbrenging onder Ker- 
mit is verdubbeld, het uitgebreide toet¬ 
senbord van Amiga 500 en 2000 
wordt ondersteund, vreemde letterte¬ 
kens kunnen worden toegepast en er 
worden meer dan 10 modemtypes on¬ 
dersteund. 
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De Amiga is niet alleen grafisch een prachtige computer, maar is ook voor het maken 
van muziek uitermate geschikt.Een artikel over het muzikale karakter van de Amiga en 
een bespreking van enkele muziekprogramma’s. 


Amiga & Muziek 



H et begin van het computertijdperk, dat was nog eens een leuke tijd. Je 
had een weerstandje, een klein speakertje en dan maar de ene poke na 
de andere poke en hoera, je had muziek! Maar toen de VIC 20 kwam, met 
goed geluid, was het gedaan met al dat zelf solderen en die onhandige print- 
bordjes. Voor die VIC had ik lang gespaard, maar al snel waren er allemaal 
linke jongens die een 64 hadden, met sterke verhalen over wat je daar wel 
niet mee kon. 



Hotlicks van Infinity 


Waarom deze terugblik? Welnu, Ami¬ 
ga en muziek, daar kun je heel ver¬ 
schillend over denken. Als je fraaie 
demo’s hoort met gesampelde stereo- 
deuntjes, dan is het helaas ook met de 
64 gedaan. 

De Amiga is niet alleen grafisch fan¬ 
tastisch maar ook wat betreft het ge¬ 
luid niet te kloppen. Qua geluidsmo¬ 
gelijkheden verslaat de Amiga de Ata- 
ri met een forse neuslengte, om over 
een MS-DOS machine maar helemaal 
te zwijgen. Prachtige programma’s 
die gebruik maken van de geluids- 
chips in de Amiga zijn er nu in over¬ 
vloed: Sonix, Deluxe Music Construc- 
tion Set, Dynamic Drums, Hotlicks en 
Soundscape, om er maar een paar te 
noemen. 

Vier kanalen 

Al die programma’s maken op een 
prachtige manier gebruik van de vier 
geluidskanalen die de Amiga tot zijn 
beschikking heeft. Ook is er de moge¬ 
lijkheid met een extra uitbreiding van 
zo’n ƒ 200 zelf samples te maken en 
die weer als instrument te gebruiken. 
Wil je naast gesampelde deuntjes ook 
‘echt’ muziek gaan maken, dan kun je 
helaas niet om extra hardware heen. 
Ga maar na wat je op de meeste 
grammofoonplaten hoort. Twee gita¬ 
ren (1+3), een bas (1), een blazer (1), 
een keyboard (4) en een drum (3). 
Natuurlijk kan het nog uitgebreider, 
maar laten we het hier even bij hou¬ 
den. Voor het meer professionele mu- 
ziekmaken heb je in totaal waarschijn¬ 
lijk 13 geluidskanalen nodig. Dat gaat 
dus niet met een ‘kale’ Amiga, maar 
gelukkig is er MIDI. 


MIDI staat voor Musical Instrument Di¬ 
gital Interface. Vanaf 1983 wordt de 
MIDI standaard door de fabrikanten in 
veel synthesizers ingebouwd en kun¬ 
nen de apparaten met een kabel aan 
elkaar worden verbonden. MIDI kent 
16 kanalen en over elk kanaal kun je 
meerdere noten verzenden. 


MIDI aansluiting 

Synthesizers, drummachines en com¬ 
puters kunnen nu dus op een begrij¬ 
pelijke manier met elkaar praten. Wil 
je dus echt muziek gaan maken met 
de Amiga, dan moetje een MIDI-inter- 
face en minimaal een synthesizer mo- 
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dule aanschaffen. Kijk, en daar heeft 
de Atari nou een voorsprong. Stan¬ 
daard zit op de Atari namelijk een 
MIDI-interface. Nou stelt het allemaal 
niet veel voor maar het resultaat was 
wel dat de Atari ST al bijna sinds het 
begin goede muziek (MIDI) software 
had. 

Een MIDI-aansluiting is eigenlijk een 
soort turbo seriële poort. De muziek- 
data wordt met 32500 baud verstuurd. 
Wat wordt verstuurd? NOTE aan/uit, 
PROGRAMM change (welk instru¬ 
ment) en systeemboodschappen voor 
de synthesizers. De Amiga heeft geen 
MIDI in- of uitgang, maar daarom niet 
getreurd want de seriële poort is al 
voorgeprogrammeerd om als MIDI- 
kanaal te dienen. MIDI-data wordt op 
TTL niveau (0/5 Volt) verstuurd en de 
RS-232 poort werkt met -12 / + 12 Volt. 
Het enige dat we moeten doen is het 
signaal naar 5 Volt terugbrengen. Dat 
vereist twee IC’tjes, wat connectortjes 
en nog wat klein grut. Hier en daar 
wordt zo’n MIDI-interface voor ƒ 170 
aangeboden wat eigenlijk, gezien de 
benodigde onderdelen, veel te veel is. 
Wil je met de grote MIDI-wereld mee¬ 
doen, dan heb je vervolgens nog een 
programma nodig. Die zijn er voor de 
Amiga gelukkig genoeg, zoals Dr. T - 
Keyboard Controlled Sequencer, Mu- 
sicX, Pro Midi Studio en Dynamic Stu¬ 
dio. 

Een sequencer is een soort meerspo- 
ren-recorder. Je neemt bijvoorbeeld 
een stuk pianomuziek op, speelt het 
stukje weer af en neemt vervolgens 
een bas op. Dat alles moet je natuur¬ 
lijk wel via het keyboard van een syn¬ 
thesizer doen. Om eenvoudig te be¬ 
ginnen heb je dus nog een synthesi¬ 
zer nodig. Je moet dan wel opletten 
wat zo’n apparaat kan. Sommige syn¬ 
thesizers kunnen alleen maar op een 
kanaal muziekdata ontvangen en dat 
schiet voor je orkest nou niet echt op. 
Het beste is een zogenaamde multi- 
timbrale synthesizer. Zulke synthesi¬ 
zers kunnen op meerdere kanalen 
zelfs akkoorden laten horen. Dan ben 
je al een aardig eind op weg met het 
samenstellen van een orkestje. Aan 
dit alles hangt natuurlijk weer een aar¬ 
dig prijskaartje. Als je van de huidige 
prijzen uitgaat, kom je minimaal op 
zo’n 1.800 gulden uit. Een multi-tim- 
brale synthesizer of module komt al 
gauw op zo’n 1.200 gulden, een MIDI- 
interface kost zo’n ƒ 170,- en een se- 
quence programma begint bij ƒ 300,- 
Al met al nog een aardige extra inves¬ 
tering, maar als je de spullen dan ook 
thuis hebt staan kun je er niet meer 
van afblijven. 


HOTLICKS 

Met Hotlicks (Infinity Software) wordt 
de Amiga omgetoverd in een soort 
cassetterecorder waarmee je vier ka¬ 
nalen kunt opnemen en weergeven. 
De beperking van vier kanalen komt 
natuurlijk doordat de Amiga zelf maar 
vier geluidskanalen heeft. 

Op vrij eenvoudige wijze kun je een 
track opnemen, daarna afspelen en 
tegelijkertijd een volgende track opne¬ 
men. Hotlicks laadt en saved de mu¬ 
ziekstukjes in SMUS formaat. Je kunt 
dus muziek, die je met Sonix of Delu- 
xe Music Construction Set (DMCS) 
hebt gemaakt, met Hotlicks beluiste¬ 
ren. Ook de instrumenten van DMCS 
zijn te gebruiken, Hotlicks gebruikt de 
zogenaamde 8SVX instrument files. 




Music construction set van 
Electronic arts 

Dat is aardig want je kunt dan ook zelf¬ 
gemaakte samples, die je als 8SVX 
instrument hebt gesaved, gebruiken. 
Een minpuntje van Hotlicks is dat je 
muziek via het toetsenbord moet inge¬ 
ven. Nu zie je wel op het scherm waar 
welke toets voor staat, maar een echt 
muziekkeyboard werkt toch wel even 
prettiger. Maar dat gaat helaas niet. 
Veel muziekprogramma’s voor de 
Amiga herkennen gelukkig wel de 
MIDI-ingang. Hotlicks helaas niet. 
Ook heeft Hotlicks niet de mogelijk¬ 
heid om een synthesizer via de MIDI- 
uitgang aan te sturen. Vandaar dat je 
vast zit aan de vier stemmen van de 
Amiga. 

Het bewerken van de tracks kan op 
eenvoudige wijze. Een track kan be¬ 
werkt worden zoals je dat met tekst en 
tekstverwerker doet. Plakken en knip¬ 
pen dus. In de handleiding van zo’n 60 
pagina’s staat stap voor stap aange¬ 
geven hoe je te werk moet gaan. Hot¬ 
licks heeft ook nog een zogenaamde 
Jukebox mode. Je kunt, met notepad 
bijvoorbeeld, een script maken waarin 
een aantal eenvoudige opdrachten 
staan en Hotlicks speelt zonder te 
stoppen het ene muziekje na het an¬ 
dere. 

Volgens de handleiding is het pro¬ 
gramma niet copy-protected maar je 



moet wel iedere keer bij het opstarten 
een woord uit je manual opzoeken, 
anders gaat het programma niet ver¬ 
der. 

Als extraatje kun je nog het lowpass 
filter uitschakelen. Je krijgt dan wat 
meer hoge tonen en als indicatie gaat 
het ‘power’ lampje uit, niet schrikken 
dus. 

Hotlicks is een uitstekend programma 
als je zonder veel extra toeters en bel¬ 
len met de Amiga muziek wilt maken. 
Wil je serieuzer aan de slag, dan heb 
je echt een ander programma nodig, 
maar dan hangt er voor het program¬ 
ma en de extra apparatuur natuurlijk 
een behoorlijk hoger prijskaartje aan. 

SYNTHIA 

Muziekinstrumenten te kort en uitge¬ 
keken op de instrumenten die bij De- 
luxe Music of Instant Music zitten en 
vind je de manier waarop Sonix instru¬ 
menten maakt te eenvoudig, dan 
moet je Synthia (The Other Guys Soft¬ 
ware) gaan proberen. Maar een waar¬ 
schuwing vooraf: eenvoudig is het 
niet. Dat is ook wel logisch, want zelf 
een goed klinkend geluid maken met 
een echte synthesizer is ook niet mak¬ 
kelijk. De makers van het programma 
beweren dat Synthia de Amiga om¬ 
tovert in een ‘high performance digital 
synthesizer’. Het boek dat bij het pro¬ 
gramma zit doet zoiets ook wel ver¬ 
moeden. Het is namelijk zo’n 300 pa¬ 
gina’s dik. Als je het doorgeworsteld 
hebt dan heb je enig idee hoe synthe¬ 
sizers werken. Stap voor stap wordt 
duidelijk gemaakt hoe je instrumenten 
kunt maken en welke manier daar het 
beste voor is. In feite is Synthia niet 
één synthesizer maar zijn er vijf op de 
disk aanwezig. Je kunt natuurlijk di- 
rekt aan de slag gaan en een synthe¬ 
sizer aanklikken en een instrument 
maken en natuurlijk doet iedereen en 
ook ik dat. Wil je echt goede instru¬ 
menten gaan creëren, jazeker 
creëren, dan is de enige goede ma¬ 
nier om je stap voor stap door het 
boek heen te werken. Het duurt even 
maar als je het dan onder de knie hebt 
kun je instrumenten maken die je ner¬ 
gens anders hoort en je kunt ook de 
gesamplede instrumenten van Deluxe 
Music bewerken. 

Zoals gezegd, op de twee schijven 
van Synthia staan 5 verschillende 
synthesizer-manieren en nog wat 
voorbeelden en hulpprogramma’s. 

De vijf synthesizer-methoden zijn: Ad- 
ditive, Subtractive, Interpolation, 
String en Percussion. 

De eenvoudigste manier om een ge¬ 
luid te produceren is Subtractive. Je 
begint in feite met een sinus golfvorm 
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Synthia van The Other Guys 


en daar haal je op de juiste plaatsen 
wat van af. Een sinus waar niet aan 
‘geknipt’ is klinkt bijvoorbeeld als een 
orgel. Tegenover het voordeel dat het 
makkelijk te gebruiken is, staat dan 
weer het nadeel dat het vrij moeilijk is 
om de klank van een gitaar of een pia¬ 
no na te bootsen. 

Een belangrijk stuk van het program¬ 
ma is de Waveform Editor (golfbewer- 
ker). Daarmee kun je heel precies 
aangeven hoe de golfvorm moet wor¬ 
den. Deze waveform editor kom je ook 
weer in de andere synthesizer-modu- 
len tegen. Als extra is er ook nog een 
waveshaper window, waarin je met de 
voorhanden zijnde of zelf bedachte 
functies de Amiga golfvormen kan la¬ 
ten berekenen. Wiskunde dus, maar 
naar deze mogelijkheid zul je tever¬ 
geefs zoeken in de hardware synthe¬ 
sizers. Een extra pluspunt dus. 

Je kan met de waveform editor ook 
samples bewerken. Om bijvoorbeeld 
de klank van een gitaar te maken 
moet je de String Synthesizer kiezen. 
Het gaat als volgt: vanaf workbench 
kies je string. Dan kies je de waveform 
editor. In de waveform editor staat dan 
al een waveform die als uitgangspunt 
voor het nieuwe geluid moet dienen. 
In feite is dit voor een eerste poging 
om de gitaar te benaderen al genoeg. 
Als je dit window dan sluit en in het 
string window DO SOUND kiest, dan 
moet de Amiga even rekenen en na 5 
a 15 seconden is het geluid klaar. 

Met het toetsenbord kun je dan het ge¬ 
luid horen. Als je dan tevreden met het 
geluid bent, dan kun je het als een 
8SVX-instrument saven. Ben je niet 
tevreden dan ga je terug naar de wa¬ 
veform editor en dan begint het werk 
pas echt. Uren kun je dan met de vele 
mogelijkheden en instellingen stoeien 
voordat je tevreden bent. Als je met de 
waveform editor klaar bent, dan kun je 
ook nog in het eerste window met 
fase, modulatie, galm, flanger en fil¬ 
ters extra dimensie aan het geluid ge¬ 
ven. 

Synthia heeft gelukkig de mogelijk¬ 
heid om direkt met een MIDI-keyboard 
het programma aan te sturen. Je kunt 
dus snel horen wat je doet. Het pro¬ 
gramma is niet copy protected. 

Ik programmeer regelmatig hardware 
synthesizers van Yamaha en Roland, 
maar de overdaad aan mogelijkheden 
die Synthia software-matig heeft om 
een geluid te creëren, zal je bij de 
hardware synthesizers niet aantref¬ 
fen. Prima dus, maar er is natuurlijk 
een maar. De beperking van het pro¬ 
gramma zit hem niet in het program¬ 
ma maar in de Amiga zelf. Je zit vast 
aan de vier kanalen van de Amiga en 
het is en blijft 8-bits geluid. En dat kan 


niet tegen een echte hardware syn¬ 
thesizer op. 

Deluxe Music 
Construction Set (PAL 
versie) 

Als je serieus muziek wilt maken en 
geen extra hardware aan je Amiga 
hebt hangen dan moet je Deluxe Mu¬ 
sic Construction Set (DMCS) hebben. 
DMCS (Electronic Arts) is een mu¬ 
ziekprogramma dat met een noten¬ 
balk werkt. Nou zijn er mensen die bij 
Sonix zweren maar dat is dan vaak 
omdat je met Sonix ook nog zelf in¬ 
strumenten kan maken. 

DMCS is met zijn notenbalk met stan¬ 
daard muzieknotatie onovertroffen. Je 
kunt bijna niet zo’n gek muziekstuk 
bedenken of je kunt het met de muis 
in DMCS invoeren. Het is wel een tijd- 
1 rovend werkje maar het kan. 


Hele tot 32e noten met de bijbehoren¬ 
de rusten, tripleten, kruisen, mollen, 
pianissimo’s tot en met fortissimo’s, 
het kan allemaal. Gewoon met de 
muis de gewenste noot aanklikken. 
Door de noot over de notenbalk heen 
en weer te bewegen, hoor je dan de 
toonhoogte. Ben je tevreden, dan laat 
je de rechter muisknop los en daar 
staat de eerste noot van de partituur 
gereed. 

Een akkoord maken kan ook op de¬ 
zelfde manier, gewoon nog een of 
meerdere noten eronder of erboven 
plakken. Met akkoorden moet je ech¬ 
ter wel voorzichtig zijn want de Amiga 
kan natuurlijk zelf alleen maar 4 tonen 
tegelijk laten horen. Bij DMCS wordt 
een flink aantal standaardinstrumen¬ 
ten geleverd die je zo via de menubalk 
kunt oproepen. Ook staan er op de 
schijf een aantal muziekstukken waar¬ 
aan je goed kunt zien hoe je het hand¬ 
igst de muziek kan invoeren. 
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Met DMCS kun je maximaal 16 balken onder elkaar zetten en 
per balk kun je ook nog twee verschillende notenlijnen neerzet¬ 
ten. Dat lijkt misschien wat overdreven voor een Amiga met vier 
geluidskanalen maar dat is het niet. DMCS ondersteunt name¬ 
lijk ook MIDI. Met een MIDI-interface en wat synthesizers kun 
je een heel orkest laten horen. Ook kun je via een muziek-key- 
board muziek invoeren. Maar dat gaat dan wel in step-time, dat 
wil zeggen, het wordt stap voor stap ingevoerd en je kunt dus 
niet in het juiste tempo een stukje inspelen. Het mooie van 
DMCS is dat, als je het programma de play opdracht geeft, je 
het niet alleen prachtig over je speakers hoort maar dat je ook 
ziet wat er gebeurt. De noten die klinken worden rood op het 
scherm afgebeeld en de muziekblaadjes worden ook keurig 
omgeslagen. Voor degenen die niet goed of helemaal geen no¬ 
ten kunnen lezen is dat een prachtige manier om het te leren. 
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Het enige wat mij aan DMCS bevreemdt is de plakker ‘PAL-ver- 
sion’ op de doos. Ik gebruik namelijk al tijden de eerste Ameri¬ 
kaanse versie en op een paar kleine veranderingen na heb ik 
niet een wezenlijk nieuwe PAL-versie kunnen ontdekken. Het 
handboek is iets kleiner geworden en wat duidelijker op de Ami¬ 
ga afgestemd. (Het oorspronkelijke programma is namelijk 
eerst voor de Macintosh gemaakt). Het invoeren via het MIDI- 
keyboard loopt niet meer vast. Dat is een hele verbetering, 
maar ik houd mijn hart vast dat het toch nog eens zal toeslaan. 
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Hotlicks 

Dat waren de verbeteringen. Wat is er niet verbeterd en wat ik 
wel verwachte gezien de sticker PAL-versie? 

Het scherm waar de balken op staan is nog altijd 200 lijnen en 
dat is jammer want dat scheelt een balk. Het programma is nog 
altijd bang dat je een Amiga met 512KB hebt en dus laadt het 
programma zich maar gedeeltelijk in het geheugen met als re¬ 
sultaat dat bij het opvragen van bijvoorbeeld de score setup er 
eerst een deel van het programma ingeladen moet worden en 
dat wordt op den duur irritant. 

Daar hebben we natuurlijk wel het nodige op gevonden: veran¬ 
der startup-sequence zodat eerst alles naar de Ramdisk gaat. 
Start vervolgens van de Ramdisk op. 

Vervang de laaste twee regels van de startup-sequence 
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COPY DeluxeMusic to RAM: 

COPY DMCSpalette to RAM: 

COPY DMCSnotes to RAM: 

COPY DMCSclefs to RAM: 

CD RAM: DeluxeMusic 

Het copiëren duurt even maar dan loopt het programma ook 
flitsend. 

Deluxe Music Construction Set kan best tegen wat negatieve 
puntjes want het programma is gewoon een must als je met no¬ 
tenschrift muziek wilt maken. 

Maurits Rietveld 



naam boekhandel 
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Het einde van het jaar is bijna alweer in zicht. We gaan het over de zogenaamde 
MountList hebben. Tevens willen we wat vertellen over het zelf maken van DOS com¬ 
mando’s. Als toevoeging hebben we nog een lijst van de foutmeldingen die AmigaDOS 
kan geven. 


Binnenin AmigaDOS 4 


De mountlist 

In de vorige aflevering hebben we het 
een en ander gezegd over de startup- 
sequence. Zoals u nu wel door zult 
hebben is de startup-sequence een 
batchbestand. Het is een van de twee 
ASCII bestanden die op uw opstart- 
schijf staan. Voor de echte ‘freaks’ is 
de MountList veel interessanter. Het is 
ook weer een soort batchbestand. 
Een groot verschil. Met het comman¬ 
do EXECUTE zult u bij uitvoering van 
dit bestand niets anders dan fouten op 
uw beeldscherm krijgen, dus niet 
doen! Nee, voor de uitvoering van dit 
bestand is een ander commando no¬ 
dig. MOUNT is het juiste commando. 
De Mountüst dient, om van eventuele 
andere devices hun kenmerken op te 
slaan. Maar met het commando 
MOUNT voert u niet de gehele Mount- 
List uit. Eigenijk voert u hem selectief 
uit. Door achter het commando 
MOUNT de devicenaam te vermelden 
die u bekend wilt maken aan het sys¬ 
teem, voert u een deel van de Mount- 
List uit. Juist dat deel dat begint met 
de devicenaam die u vermeldt achter 
MOUNT. Een voorbeeld Mountüst en- 
try kan als volgt luiden: 


DF2 : 

Device = trackdisk.device 
Unit = 2 
Flags = 1 
Surfaces = 2 
BlocksPerTrack = 11 
Reserved = 2 
Interleave = 0 
LowCyl = 0 ; HighCyl = 79 
Buffers = 20 
BufMemType = 3 
# 

Een Mountüst-entry begint dus altijd 
met de naam van het te ‘mounten’ de¬ 
vice, dit is de naam die u achter 
MOUNT vermeldt, gevolgd door een 
dubbele punt De Mountüst-entry 
eindigt met ‘#’. Het aantal en de aard 
van de hiertussen vermelde comman¬ 
do’s is afhankelijk van het ‘aan te slui¬ 
ten’ device. Het is ook mogelijk com¬ 



mentaar tussen te voegen. Dit gebeurt 
op de standaard C manier. Commen¬ 
taar wordt hierbij voorafgegaan door 
een 7*’ en eindigt met een '*/’. Een 
Mountüst entry hoeft niet lang te zijn, 
getuige het volgende voorbeeld: 

AUX: 

Handler = L:Aux-handler 
Stacksize = 1000 
Priority = 5 
# 

U geeft dus de device specificaties 
met behulp van bepaalde keywords. 
Wat voor keywords zijn er nu zoal? 
Een opsomming: 

0 Handler: geeft aan wat voor Hand¬ 
ler het device nodig heeft. Dit is een 
routine met de extensie ‘.handler’ 
die in de f directory aanwezig is. 

0 Device: hetzelfde als hierboven al¬ 
leen nu gaat het om een Device. Dit 
is dus een routine met de extensie 
‘.device’. Deze staan over het alge¬ 
meen in de directory ‘devs’. 

° Priority: de prioriteit van het pro¬ 
ces. Handlers hebben over het al¬ 


gemeen een prioriteit van 5 en devi¬ 
ces een prioriteit van 10. 

° Unit: het Unit nummer van het 
device. 

0 Flags: het zogenaamde ‘flags’ num¬ 
mer voor de Exec-functie OpenDe- 
vice(). 

0 Surfaces: het aantal kanten. Vooral 
voor DiskDrive en HardDisk belang¬ 
rijk. 

0 BlocksPerTrack: het aantal blok¬ 
ken per track. Reserved: het aantal 
blokken dat gereserveerd is voor de 
Bootsector. 

0 LowCyl: de laagste track die ge¬ 
bruikt kan worden. 

0 HighCyl: de hoogste track. StackSi- 
ze : hoe groot de stackruimte voor 
het device moet worden. 

° Buffers: aantal tijdelijke (cache) 
buffers. Dit versnelt data overdracht 
aanzienlijk daar korte routines op¬ 
geslagen kunnen worden. Probeer 
het volgende maar eens: 

ADDBUFFERS dfO: 30 
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Vraag hierna maar een paar keer een 
directory op. U zult merken dat het 
commando maar 1 keer ingeladen 
wordt. Hierna wordt het uit de buffer 
geladen. Als u een ander commando 
intypt zal het DIR commando niet 
meer in de buffer zitten. 

BufMemType: het geheugen waar de 
buffer aanwezig is. 

2 en 3 = CHIP 
4 en 5 = FAST 

Bij 0 of 1 komt de buffer in het geheu¬ 
gen te staan waar maar plaats vrij is. 
Mount: als hier een positieve waarde 
staat zal de handler of het device me¬ 
teen geladen worden. Zo niet dan 
wordt deze pas bij de eerste aanroep 
ingeladen. Als u deze keywords ge¬ 
bruikt kunt u een device aanroepen. 
We hebben hierbij een klein voorbeeld 
gedaan waarbij de tweede drive in 
twee partities opgedeeld wordt. U 
roept ze aan onder devicenaam df5: 
en df6:. Het voorbeeld is toegespitst 
op de Amiga 500. Voor de Amiga 2000 
moeten er een paar dingen veranderd 
worden daar drivenummer df 1: gere¬ 
serveerd is voor de interne drive. Als u 
aan de Amiga 2000 een externe drive 
aansluit zal deze gemount worden als 
device df2:. Dus moet hier het num¬ 
mer achter ‘Unit’ veranderd worden 
naar 2. Als u een tweede INTERNE 
drive heeft verander dan niets want 
dan werkt het voorbeeld perfect. Nog 
even voor de duidelijkheid, Amiga 500 
bezitters hoeven niets te veranderen, 
alleen de Amiga 2000 bezitters met 
een externe drive. Goed, en dan nu 
het voorbeeld. U pakt een editor, ED 
bijvoorbeeld, en typt in: ED 
df0:devs/mountlist. Vervolgens gaat u 
naar het einde van de MountList. Nee, 
geen CURSOR DOWN, ESC-B werkt 
veel sneller. Typ nu het voorbeeld in. 

DF5 : 

Device = trackdisk.device 
Unit = 1 
Flags = 1 
Surfaces = 2 
BlocksPerTrack = 11 
Reserved = 2 
Interleave = 0 
LowCyl = 0 ; HighCyl = 39 
Buffers = 20 
BufMemType = 3 
# 

DF 6 : 

Device = trackdisk.device 
Unit = 1 
Flags - 1 

Surfaces = 2 
BlocksPerTrack = 11 

Reserved = 2 

Interleave = 0 

LowCyl =40 ; HighCyl = 79 



Buffers = 20 
BufMemType = 3 
# 

Schrijf het nu weer terug naar schijf 
(ESC X). Typ eerst in: MOUNT DF5: 

Als dit gebeurt is typ dan in MOUNT 
DF6: 

Voor het systeem zijn de twee partities 
nu bekend. Pak nu een lege schijf en 
doe deze in de tweede drive. Typ nu 
in: 

FORMAT DRIVE df5: NAME partitiel 

Wanneer u hiermee klaar bent, doet u 
dit zelfde voor drive df6: en noem 
deze ‘partitie2’. Typ nu het DISK- 
CHANGE dfl: Er zullen vreemde re- 
questers opkomen. Negeer ze, druk 
iedere keer op ‘cancel’. Typ het com¬ 
mando INFO in. Nu krijgt u een over¬ 
zicht van de diskdrives die voor het 
systeem bekend zijn. Zoals u ziet 
staat bij drive DF1: ‘Not a DOS disk’. 
Immers onder device naam DF1: pro¬ 
beert het systeem een 880K diskette 
in te lezen. Die is er op dit moment 
niet. Wel zijn er nu 2 440K diskettes. 
Deze zijn bereikbaar onder device¬ 
naam DF5: en DF6:. Op soortgelijke 
wijze kunt u uw schijf opdelen in meer 
partities. 

De devices 

We hebben het zo net over de devices 
gehad, maar wat voor devices kent 
DOS nu standaard. We kunnen on¬ 
derscheid maken tussen de werkelijke 
devices en de virtuele devices. De vir¬ 
tuele devices zijn de devices die toe¬ 
gekend worden met het ASSIGN com¬ 
mando. Voorbeelden hiervan zijn 
FONTS:, dit is df0:fonts, C:, dit is 
df0:c, etcetera etcetera. Op deze ma¬ 
nier hoeft u en de programmeur niet 
iedere keer het gehele woord 
‘df0:fonts’ te gebruiken maar kan het 
device ‘FONTS:’ aangeroepen wor¬ 
den. Een ander bijkomend voordeel is 


dat nu door het pad, waarvoor de de¬ 
vice naam staat, te veranderen in een 
door u zelf gedefinieerd pad. Stelt u 
zich de situatie voor. U heeft een schijf 
met nieuwe fonts. Deze wilt u in uw 
tekstverwerker gebruiken. Hoe kunt u 
dit bereiken zonder de fonts naar de 
opstartdiskette te kopiëren. Simpel, 
even vooropgesteld dat u een tweede 
diskdrive heeft, u gebruikt het com¬ 
mando ASSIGN. Hiermee verandert u 
het pad van het device FONTS:. Met 
ASSIGN FONTS: df1:fonts bereikt u 
dit resultaat. Naast de virtuele devices 
zijn er dan nog de werkelijke devices. 
Dit zijn de devices die het systeem au¬ 
tomatisch herkent plus de devices die 
in de MOUNTLIST vermeld staan. De 
volgende devices herkent de Amiga 
automatisch; 

DF0: diskdrive 0. 

DF1 : diskdrive 1. 

DF2: diskdrive 2. 

DF3: diskdrive 3. 

DH0: of HD0: harddisk 1. 

DH1 : of HD1: harddisk 2. 

RAM: de RAM-disk in het geheugen 


NIL: de zogenaamde ‘Trashcan’. 
SER: het seriële device. 

PAR: het parallele device. 

PRT: het printer device. 

CON: het console device, oftewel de 
communicatie met het toetsenbord. 
RAW: console device voor onbewerk¬ 
te gegevens vanaf het toetsenbord 
naar het huidige CLI window. 

Devices die daarnaast in de MountList 
gedefinieerd zijn kunnen van allerlei 
aard zijn. Voorbeelden zijn AUX: en 
SPEAK:. Op de huidige WorkBench, 
versie 1 . 2 , hebben deze nog een be¬ 
tekenis. Op de nieuwe versie 1.3 zal 
het AUX: device er voor zorgen dat de 
Amiga een ongebufferde seriële poort 
heeft en het SPEAK: device zorgt er¬ 
voor dat ASCII data, vanuit CLI, als 
gesproken tekst hoorbaar gemaakt 
worden. 
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De system configuration 

De system-configuration is ook zo’n 
file die voor de meesten wel bekend in 
de oren klinkt maar waarvan de mees¬ 
ten niet geheel doorhebben wat de ei¬ 
genlijke betekenis hiervan is. U weet 
dat u met de Preferences bepaalde in¬ 
stellingen van het WorkBench scherm 
kunt veranderen. Deze gegevens 
moeten ergens worden opgeslagen, 
ze kunnen niet in ROM worden ge¬ 
schreven, anders zouden alle schij¬ 
ven er hetzelfde uitzien. Dat zou een 
eentonige boel worden. De gegevens 
die met de Preferences zijn ingesteld 
worden opgeslagen in de file ge¬ 
naamd ‘system-configuration’. Deze 
file is niet zomaar met een editor uit te 
lezen, immers er worden ook niet-AS- 
Cll gegevens opgeslagen. De data 
van de muispointer, de kleuren van 
het scherm, en ga zo maar verder. 
Voor het uitlezen hiervan zou u dus 
een programma moeten schrijven. 
Maar waarom zou u moeilijk doen als 
het programma al bestaat. Immers, de 
Preferences vervult deze functie al. 

AmigaDOS errors 

Het leek het ons zeer nuttig een volle¬ 
dige lijst te hebben van AmigaDOS er¬ 
rors. Deze errors krijgt u tevoorschijn 
als u een fout maakt in AmigaDOS. In 
uw handboek is ook een lijst afge¬ 
drukt. Toch, we konden onze nieuws¬ 
gierigheid weer eens niet bedwingen, 
hebben we nog meer foutmeldingen 
gevonden. Op zich natuurlijk geen 
wonderlijke zaak, want er staan wel 
meer dingen NIET in de handleiding. 
Maar goed, hier volgt de lijst. 

103: insufficiënt free store: niet vol¬ 
doende geheugenruimte. 

105: tasktable full: teveel taken, meer 
dan 20, geopend. 

120: argument line invalid or too long: 
teveel tekens op de regel of een 
verkeerd commando. 

121: file is not a object module: geen 
uitvoerbare file. 

122: invalid resident library during 
load: er heeft zich een fout voor¬ 
gedaan in een van de libraries 
die in het geheugen van de Ami¬ 
ga zitten. 

202: object in use: file in gebruik. 

203: object already exits: de file die u 
aan wilt maken bestaat al. 

204: directory not found: de opgege¬ 
ven directory kon niet worden 
gevonden. 

205: object not found: de file die u op¬ 
gegeven had kon niet worden 
gevonden. 

206: invalid window description: de 
window beschrijving die u achter 


CON: gaf was niet correct. 

209: packet request type unknown: 
210: stream name component 
invalid: Verkeerde ‘Stream 

name’. 

211: invalid object lock: twee taken 
proberen toegang tot dezelfde 
file te krijgen. De een heeft EX- 
CLUSIVE ACCES, te ander pro¬ 
beert de file de krijgen. 

212: object not of required type: de op¬ 
gegeven file heeft niet de vereis¬ 
te kenmerken. 

213: disk not validated: disk heeft 
waarschijnlijk een error. 

214: disk write-protected: schrijf bevei¬ 
liging staat ‘aan’. 

215: rename across devices attemp- 
ted: u heeft geprobeerd een de- 
vice van naam te laten verande¬ 
ren. 216: directory not empty: u 
heeft geprobeerd een di¬ 
rectory te verwijderen die nog 
niet leeg was. 

218: device (or volume) not mounted: 
het systeem herkent het device 
niet. Gebruik MOUNT. 

219: seek failure: AmigaDOS komt tij¬ 
dens het verplaatsen van de file- 
pointer buiten de file terecht. 

220: comment too big: het commen¬ 
taar, wat men aan de file kan 
hechten, is te groot. 

221: disk full: de schijf is vol. 

222: file is protected from deletion: de 
file is beveiligd tegen verwijde¬ 
ring. 223: file is write protected: 
de file is beveiligd tegen be¬ 
schrijven. 

224: file is read protected: file is bevei¬ 
ligd tegen ongeauthoriseerde le¬ 
zers. 


225: not a valid DOS disk: geen juist 
DOS type. Kan een MSDOS 
schijf, of niet geformatteerde 
schijf zijn. Kan ook een schijf zijn 
die aangemaakt is met het eer¬ 
der vermelde voorbeeld. 226: no 
disk in drive: geen schijf in disk¬ 
drive. 

232: no more entries in directory: de 
directory is leeg. 

Dit waren foutmeldingen die u moge¬ 
lijkerwijs tegen kunt komen. Hierbij 
zijn niet de foutmeldingen inbegrepen 
die door de DOS commando’s zelf ge¬ 
genereerd worden. Probeert u maar 
eens TYPE (haakje kleiner 
dan)ram:test s/startup-sequence. 
AmigaDOS zal dan antwoorden met: 
‘CLI error: Unable to open redirection 
file’. Dit soort foutmeldingen zijn dus 
niet in de lijst bijgesloten. Mischien dat 
we ooit in de toekomst, met hulp van 
u, de lezer, een volledige lijst kunnen 
construeren. 

Eigen Amiga commando’s 

Eigen commando’s. De droom van 
elke rechtgeaarde computergebrui¬ 
ker. Wat bij de 64 een moeilijk karwei 
was is in AmigaDOS de simpelheid 
zelve. Toch is voor het maken van 
DOS commando’s wel enige kennis 
van C vereist daar het anders flink fout 
kan gaan. Wat zijn nu de vereisten 
voor een AmigaDOS commando. Ten 
eerste, elk commando moet een 
naam hebben. Aan deze voorwaarde 
is snel voldaan, immers elk program¬ 
ma moet een naam hebben, dus ‘pie- 
ce of cake’. Als volgende vereiste is er 
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/* hifi.c */ 
/* Dit programma schakelt de power-led uit. */ 
/* Tegelijkertijd wordt het low-pass filter */ 
/* van uw Amiga uitgeschakelt. */ 
/* 22-juli 1988 by MGCC for Commodore INFO */ 


#include "exec/types.h" 

main(argc,argv) 
int argc; 
char *argv[]; 

{ 

char *z = OxbfeOOl; 

if(argc!=2 || (strcmp(argv[1],"on")!=NULL && 

strcmp(argv[1],"off")!=NULL)) 

{ 

printf("FOUTJE! HIFI or \n"); 
exit(FALSE); 

} 

if(strcmp(argv[1],"on")==NULL) 

*z=*z | 2; 

else 

*z=*z & 253; 


dan dat de routine, uitzonderingen 
daargelaten, keywords die achter het 
DOS commando staan in moet kun¬ 
nen lezen. Dit wordt iets lastiger. Toch, 
geen nood, de taal C helpt ons hier uit 
de brand. De functie main() kent twee 
parameters genaamd argv en argc. 
‘argc’ Staat voor argument counter en 
‘argv’ betekent argument variable. 
‘argv’ Is een pointer naar een array, 
van het type char, waarin de argumen¬ 
ten, die u achter de commandonaam 
intypt, opgeslagen zijn. Met behulp 
van de pointer ‘argc’ weet u hoeveel 
argumenten er achter de commando¬ 
naam zijn ingetypt, ‘argc’ Is 1 hoger 
dan het aantal wat u achter de com¬ 
mandonaam ingetypt heeft. Dit komt 
doordat de commandonaam zelf ook 
opgeslagen wordt. Om nu dit geheel 
zichtbaar te maken het volgende voor¬ 
beeld: 

main(argc,argv) 
int argc; 
char *argv(); 

{ 

int 1; 

printf("Aantal argumenten 
:%2d \n",argc); 

for(1=0;largc;1 + +) 

printf("argv(%d) = 

%s \n" ,1,argv(1)); 

} 

Compile dit onder de naam ‘test’ of 
elke willekeurige naam die u maar in 
gedachten heeft. Typ vervolgens het 
onderstaande maar in. 

test mijn nieuw DOS-commando 

Op uw beeldscherm zal nu verschij¬ 
nen: 

Aantal argumenten : 4 
argv(0) = test 
argv(1) = mijn 
argv(2) = nieuw 
argv(3) = DOS-commando 


In arbv(0) is de naam van het pro¬ 
gramma opgeslagen wat zojuist is op¬ 
gestart. En het zal nu wel duidelijk 
zijn, dat in argv(1) het eerste argu¬ 
ment opgeslagen is. Het laatste argu¬ 
ment kunt u terug vinden in argv(argc- 
1). Denk er om dat u in het ‘program- 
ma-begin’ ‘char *argv()’ moet declare¬ 
ren. Immers, argv is een pointer naar 
de array van characters dus u moet de 
pointer naar de array declareren an¬ 
ders krijgt niet veel bijzonders op het 
beeldscherm te zien! 

HiFi.c 

Hi-Fi wat de afkorting is vanf'High Fi- 
delity" en wat staat voor hoge ge¬ 
trouwheid, of voor natuurgetrouwe 
weergave is een zelf gemaakt pro¬ 
gramma. Dit om een voorbeeld van 


een zelfgeschreven DOS-commando 
te geven. Deze routine zorgt ervoor 
dat het zogenaamde ‘low-pass filter’ 
van de Amiga uitgeschakeld wordt. 
Hierdoor zullen uw muziekdemo’s, die 
nu al mooi klinken, nog veel mooier 
klinken. Het werkt rond het hierboven 
beschreven principe. De argumenten 
worden binnengehaald met behulp 
van ‘argv’ en ‘argc’. Het vergelijken 
van de waarden gebeurt met behulp 
van de de functie ‘strcmp’. Deze func¬ 
tie levert een waarde ongelijk aan 0 op 
als de twee strings niet gelijk zijn. 
Hiermee kunt u dus bepalen of de ge¬ 
wenste string en de opgegeven string 
gelijk zijn. De routine zelf zorgt er voor 
dat de powerled uitgeschakeld wordt. 
Een bijkomend effect is dan dat het 
‘low-pass’ filter uitgeschakeld wordt. 

Tot slot 

Dit was voor dit jaar de laatste afleve¬ 
ring van de CLI-cursus. Volgend jaar 
zullen we de draad weer oppakken. 
Een tipje van de sluier is in de vorige 
aflevering al opgelicht. Ons rest u een 
perfect en computervriendelijk 1989 
toe te wensen. 

JOHAN & JOHAN 
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In de tweede aflevering van de Amiga C cursus zullen we wat dieper proberen in te 
gaan op de zogenaamde programma ‘loops’. Programmadelen dus, die als gevolg van 
een gestelde conditie meerdere keren herhaald (kunnen) worden. Zowel in BASIC als 
in C worden hiervoor meerdere mogelijkheden geboden. 

Programmaloops in C 

Amiga C cursus, deel 2 



De commando’s 

U zult de besturingsstroom comman¬ 
do’s van AmigaBasic ongetwijfeld wel 
kennen. We laten ze nog even voorbij 
komen. FOR, NEXT, STEP, WHILE, 
WEND, IF, THEN, ELSE, END IF. 
Hierbij horen eigenlijk GOTO, GO- 
SUB ON en CALL/SUB ook bij. In 
deze aflevering zullen we hun tegen¬ 
voeters in de taal C nog niet behande¬ 
len. De in C aanwezige varianten lij¬ 
ken qua uiterlijk veel op de bovenge¬ 
noemde commando’s. Op zich is dit 
niet zo wonderlijk natuurlijk, hun func¬ 
tie is immers bijna hetzelfde. We be¬ 
ginnen eerst met een klein C program¬ 
ma. De uitleg hiervan volgt erna. 

main() 

{ 

int i; 

for(i=0; i<25; i++); 

( 

printf("Dit is een test"); 

) 

} 

U heeft waarschijnlijk al gezien wat 
het bovenstaande programma doet. 
In deze routine construeerden we een 
kleine FOR NEXT lus. In BASIC zou 
deze lus er zo uitzien: 

for i=0 to 24 
prinf'Dit is een test" 
next i 

Dus, in C doet de FOR functie hetzelf¬ 
de als het BASIC commando 
FOR/(STEP)/NEXT. De algemene 
syntax van de FOR functie luidt als 
volgt: 

for(startwaarde; eindconditie; stap- 
grootte) 

We hebben in het bovenstaande C 
voorbeeld accolades ‘{}’ om PRINTF 
staan, maar zolang er maar 1 com¬ 
mando tussen de accolades zou ko¬ 
men te staan is het NIET nodig deze 
te gebruiken. Voor de netheid en het 
gemak kunt u ze er beter wel neerzet¬ 


ten. Dan vergeet u ze tenminste niet 
wanneer ‘ze’ er een keer wel zouden 
moeten staan. En aangezien dat toch 
negen van de tien keer zo zal zijn is 
het aan te raden ze altijd te gebruiken. 
C compilers hebben namelijk de nare 
eigenschap om met, voor de beginner, 
vreemde foutmeldingen te komen 
aanzetten. 

Variabele toekenning 

Wanneer u nog nooit een C program¬ 
ma onder ogen heeft gehad, zal de 
toekenning ‘i++’ u wel vreemd in de 
oren klinken. Toch is dit in de taal C de 
juiste manier. ‘i++’ is hetzelfde als het 
BASIC ‘i=i+T. Op soortgelijke wijze 
kunt u dan ook ‘i=i+2’ herschrijven. Dit 
zou dan ‘i+=2’ worden in C. Voor de 
beginner zal het even ‘harde koek’ 
worden om door te bijten, maar ons is 
het toch ook gelukt! Dus voordat u het 
weet is dit ook ‘gesneden koek’ voor u. 

De FOR functie 

Binnen de FOR functie worden dus 
drie variabele operaties gebruikt. Eén 
voor de stadwaarde, één voor de 
eindwaarde en één voor de stapgroot- 
te. Nu is er nog een mogelijkheid bij de 
eerste variabele toekenning. U kunt 
namelijk twee verschillende variabe¬ 
len een waarde geven. Bekijkt u het 


onderstaande voorbeeld maar eens 
goed! 

main() 

{ 

int i,j; 

for(i=0,j=0; i<25; i++0) 

( 

while((j++)<25) 
printf("Commodore INFO "); 
printf("het blad voor de ‘echte’ 
commodore gebruiker\n"); 

) 

} 

In de eerste toekenning worden de va¬ 
riabelen ‘i,j’ op 0 gezet. Vervolgens 
wordt in de WHILE lus 5 keer de tekst 
geprint. Op de WHILE functie komen 
we zo terug. Nu eerst de bijzondere 
constructie binnen de WHILE-lus. 
Ook dit zal voor de eerste keer 
vreemd overkomen. Maar ook hier 
weer dat komt nog wel. Binnen de 
WHILE conditie ‘j<5’ wordt gezegd dat 
de variabele ‘j’ bij iedere geldige door¬ 
loop met 1 moet worden opgehoogd. 
Een dergelijke constructie laat BASIC 
niet toe! In C is het dus wel mogelijk. 
Ook het verlagen kunt u binnen deze 
WHILE functie toepassen. Voordat we 
nu verder gaan met het volgende 
commando, dat ook met de bestu¬ 
ringsstroom van een programma te 
maken heeft, willen we eerst even iets 
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over de verschillende operatoren 
gaan uitleggen. 

Operatoren 

We hebben de term ‘operatoren’ zo¬ 
juist al enige malen gebruikt. Operato¬ 
ren zijn symbolen of karakters die een 
wiskundige of logische bewerking 
voorstellen! 

Rekenkundige-operatoren 

U kent de meeste waarschijnlijk wel. 
We onderscheiden de volgende re¬ 
kenkundige operatoren, + - * / %. Dit 
zijn de wiskundige bewerkingen optel¬ 
len, aftrekken, vermenigvuldigen, de¬ 
len en modulus. Al deze bewerkingen 
zullen u wel bekend zijn. Voor de ope¬ 
ratoren geldt ook de waarschijnlijk wel 
bekende prioriteit regel. Welke opera¬ 
tor wordt het eerste in een berekening 
gebruikt. Neem het voorbeeld a+3*5. 
Dit is equivalent met a+(3*5). Het 
teken heeft dus een hogere prioriteit 
dan het V teken. De hoogste prioriteit 
hebben de operatoren: *, /, %. Een tre¬ 
de lager staan: +,- en als laagste is er 
dan de = operator. 

Ophogings- en verlagings 
operatoren 

We hebben ze al gebruikt in het voor¬ 
beeld van zo straks, de operatoren 
‘++’ en Deze operatoren kunnen 
zowel voor als achter een variabele 
geplaatst worden. In beide gevallen 
zullen ze de variabele verhogen dan 
wel verlagen. Het verschil treedt pas 
op als deze operatoren gebruikt wor¬ 
den in een expressie. Als de operator 
voor de variabele gezet wordt zal 
eerst de variabele verhoogd worden. 
Daarna pas zal de expressie geëvalu¬ 
eerd worden. Staat de operator achter 
de variabele dan zal eerst de expres¬ 
sie geëvalueerd worden met de oude 
waarde van de variabele en vervol¬ 
gens zal de variabele verhoogd wor¬ 
den. Wat betreft de prioriteit van deze 
operatoren, ze staan weer een stapje 
hoger op de ladder. Dus in een verge¬ 
lijking zullen deze operatoren als eer¬ 
ste aan bod komen. Een voorbeeld. 
a=++b/2. Eerst zal b met 1 verhoogd 
worden. Vervolgens zal deze door 2 
gedeeld worden. Het resultaat staat in 
de variabele a. 

Toekennings-operatoren 

Ook hiervan hebben we in dit artikel al 
een voorbeeld besproken. Dit was 
‘i+=2’. Al deze operatoren hebben een 
gemeenschappelijk kenmerk, ze ge¬ 


bruiken de waarde van de variabele 
die voor de toekenning-operator staat 
om hiermee een rekenkundige bewer¬ 
king uit te voeren. De volgende toe- 
kenning-operatoren bestaan. 

= : is gelijk aan 
+= : plus 
-= : min 

*= : vermenigvuldigen 
/= : delen 
%= : modulus 

»=: bitgewijs naar rechts schuiven 

«=: bitgewijs naar links schuiven 

&=: AND 

A =: tot de macht 

|=: OR 

Algemeen gezegd vervullen ze de 
functie, (variabele) = (variabele) (re¬ 
kenkundige bewerking) (variabele of 
constante). Dit lijkt even ingewikkeld 
maar dit is het heus niet. Weer even 
het bovenstaande voorbeeld. i+=2. Dit 
kan herschreven worden als i=i+2. 


Houdt goed het verschil tussen ‘==’ en 
‘=’ in de gaten. Bij ‘=’ gaat het om een 
toekenning van een waarde aan een 
variabele, terwijl het er bij ‘==’ om gaat 
de gelijkheid van twee variabelen te 
testen. U zult niet de eerste zijn die de 
fout maakt om ‘=’ in plaats van ‘==’ te 
gebruiken. Dit kan tot vervelende re¬ 
sultaten leiden, vanaf het niet werken 
van uw programma tot een totale 
crash. En wie vertrouwt Guru’s nog 
sinds de Beatle-tijd! Even tussen twee 
haakjes, we openen hiermee even 
een open discussie. Volgens ons, na 
een intensief overleg, is hierdoor de 
Guru-meditation op de Amiga geko¬ 
men. Dus door het negatieve image 
die ze opgedaan hebben in de de ja- 
ren ‘60. Of zijn wij nu wel heel erg ver 
van het rechte pad der wetenschap¬ 
pelijk verantwoorde redeneringen ge¬ 
raakt. Stuurt u uw opmerkingen gaar¬ 
ne naar ons toe. Worden wij mischien 



Relationele-, gelijkheids- 
en logische operatoren 

Deze operatoren worden het meest 
gebruikt om de programmastroom te 
regelen. De meesten kennen we wel, 
toch zijn er ook enkele onbekenden, 
zeker vanuit BASIC gezien. Als eerste 
zijn er de relationele operatoren. Dit 
zijn: 

< : kleiner dan 
> :groter dan 
<= : kleiner of gelijk aan 
>= : groter of gelijk aan 

Al deze operatoren kennen we ook al 
van BASIC. Er is toch een verschil. In 
BASIC is het toegestaan kleiner of ge¬ 
lijk aan zowel zo: ‘<=’ als ‘=<’ te schrij¬ 
ven. Dit geldt niet vanuit C. Hier moet 
echt ‘<=’ geschreven worden. Anders 
volgt er een zogenaamde compiler er- 
ror. Deze zelfde restrictie geldt ook 
voor ‘>=’. De volgende operatoren zijn 
de gelijkheidsoperatoren. 

== : gelijk aan 
!= : ongelijk aan 


ook weer wat wijzer! Als laatste zijn er 
dan nog de logische operatoren. 

I: een ontkenning 
&& : logische AND 
II : logische OF 

Ook deze termen zullen u vanuit BA¬ 
SIC, hetzij vanuit de wiskundelessen, 
wel bekend zijn. Equivalenten in BA¬ 
SIC zijn: NOT, AND, OR. De logische 
operatoren hebben invloed op de af¬ 
zonderlijke bits van de variabelen 
waarop men ze toepast. Bij een ont¬ 
kenning, dus ‘I’, worden de enen (1- 
en) nullen (0-en) en vica versa. Bij een 
logische AND of ‘&&’ gaat het om het 
volgende schema. Let wel, dit schema 
wordt voorgesteld op bitniveau. 

1 II 1 = 1 

1 II 0 = 0 

0 II 1=0 

0 II 0 = 0 

Even een voorbeeld, 2 && 7. Eerst 
vertalen naar bitniveau. 00000010 && 
00000111. Nu is het wel duidelijk. De 
uitkomst is 2. Bij een logische OR of ‘II’ 
gaat het om het schema, 

1 II 1 = 1 
1 II 0 = 1 
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o II i = 1 
0 110 = 0 

Ook hiervan weer hetzelfde voor¬ 
beeld, 2 II 7. Op bitniveau, 00000010 
II 00000111. Ook nu is het wel weer 
duidelijk. In elk van beide getallen 
waar een 1 staat wordt dit overgeno¬ 
men in de uitkomst. De uitkomst is dus 
7. 

De WHILE functie 

Bij de FOR-functie zijn we in een voor¬ 
beeld de WHILE-functie al tegengeko¬ 
men. De WHILE-functie is net als de 
FOR functie een functie die het moge¬ 
lijk maakt om een bepaald program- 
madeel meerdere keren uit te voeren. 
Het aantal keer is afhankelijk van de 
gestelde conditie. Eerst maar weer 
even een voorbeeld. 

main() 

{ 

int teller, som, getal(20); 
teller=som=0; 


tallen gevraagd. Binnen de haken 
staat de ophoging-operator. Op deze 
wijze kost het ons geen extra regel. In 
de tweede WHILE lus wordt de som 
bepaald van de 20 getallen. Dit wordt 
gedaan met behulp van een toeken- 
ning-operator (+=). Ook hier wordt het 
ophogen van de teller weer tijdens het 
uitvoeren van de expressie gedaan. 
Als laatste is er dan nog de opdracht 
som /=20. Equivalent hier aan is som 
= som / 20. Uiteindelijk staat in som 
dan het gemiddelde van de 20 getal¬ 
len. Dit wordt tenslotte met een 
PRINTF functie afgebeeld. Kort sa¬ 
mengevat. WHILE is een functie 
waarbij tussen de haken de conditie of 
expressie vermeldt staat en waarbij 
tussen accolades of op de volgende 
regel de uit te voeren programmacode 
staat als de conditie of de expressie 
waar is. Als laatste opmerking. Onder 
de conditie of expressie valt ook de 
aanroep van een functie waarvan een 
waarde terugverwacht mag worden. 
Bijvoorbeeld: 


main() 

{ 

int som,teller,getal(20) 
do ( 

som+=getal(tel ler-1); 
scanf("%4d",getal(teller++)); 

) while(teller); 

printf("som = %4d \n",som); 
printf("gemiddelde=%4d 
\n",som/20); 

} 

Hier wordt binnen de DO en WHILE 
functies de som bepaald alswel dat er 
om een getal van maximaal 4 cijfers 
gevraagd wordt. Deze maximale be¬ 
grenzing hangt af van het getal wat u 
bij SCANF tussen de aanhalingste¬ 
kens achter het '%’ teken vermeldt. 
Zolang de teller kleiner dan 20 is wordt 
de lus herhaald. Als ‘teller’ groter dan 
20 is wordt zowel de som als het ge¬ 
middelde afgebeeld. Dus kort gezegd, 
de DO functie maakt het mogelijk om 
de WHILE functie en de bijbehorende 
conditie aan het einde van het samen¬ 
gestelde blok opdrachten te laten 
plaats vinden. Zolang de uitkomst van 
de conditie ‘waar’ is wordt terugge¬ 
sprongen naar de DO functie. De DO 
functie kan niet zonder de WHILE 
functie voorkomen. Andersom, de 
WHILE functie kan WEL zonder de 
DO functie voorkomen. 

IF en IF-ELSE opdrachten 

In BASIC is een veel gebruikte op¬ 
dracht de IF/ELSE/END IF. Met de IF 
opdracht is het mogelijk door middel 
van een conditie een programmablok 
uit te laten voeren. Het grote verschil 
met de WHILE/WEND opdracht zit in 
het feit dat bij WHILE/WEND de op¬ 
drachten uitgevoerd worden net zo¬ 
lang tot de gestelde conditie waar is. 
Bij IF/ELSE/END IF ligt het even an¬ 
ders. Hierbij worden de opdrachten 
tussen IF/ENDIF uitgevoerd als de 
conditie, die bij IF vermeld is, ‘waar’ is. 
Als er ook nog een ELSE bij is wordt 
het nog iets complexer. De opdrach¬ 
ten tussen IF en ELSE worden uitge¬ 
voerd als de conditie bij IF ‘waar’ is. 
Als deze conditie ‘niet waar’ is worden 
de opdrachten tussen ELSE en END 
IF uitgevoerd. In beide gevallen, 
IF/END IF en IF/ELSE/END IF worden 
de opdrachten maar 1 keer uitge¬ 
voerd. Er is dus geen sprake van een 
‘lus’. Deze redenering klopt voor C 
ook. Bij de IF-functie hoort een condi¬ 
tie. Als deze conditie ‘waar’ is worden 
de opdrachten tussen de accolades 
uitgevoerd. Dit is het verschil met Ami- 
gaBASIC. Er is geen THEN en er is 
geen END IF opdracht. In plaats daar¬ 
van wordt er gebruik gemaakt van de 


while(teller<20) 

scanf("%4d",getal(teller++)); 


while((c=getchar())!=NULL) 


put- 



teller= 
while(teller<20) 
som+=getal(teller++); 
som/=20; 

printf("gemiddelde = %4d \n",som); 

} 

In BASIC zou dit er zo uitzien: 

dim getal(20) 

while tel!er<20 

input getal(teller) 

teller=teller+1 

wend 

teller=0 

while teller<20 

som=som+getal(teller) 

teller=teller+1 

wend 

som=som/20 

print "gemiddelde =";som 

In dit voorbeeld zijn veel van de in dit 
artikel behandelde zaken verwerkt. In 
de eerste WHILE lus wordt om 20 ge¬ 


Bij dit voorbeeld wordt een waarde te¬ 
rugverwacht van de functie GET- 
CHAR. Er wordt dus een karakter van 
het toetsenbord gehaald. Dit karakter 
wordt vervolgens, zolang het dus 
geen NULL string of CHR$(0) is, op 
het beeldscherm afgebeeld. Dus er 
kan een functie binnen de WHILE- 
functie aangeroepen worden, om 
deze vervolgens op een bepaalde uit¬ 
komst te testen. Dit is pas compact 
programmeren!! Bij de WHILE functie 
komt ook de DO functie om de hoek 
kijken. DO is als het ware een aanvul¬ 
ling op de WHILE functie. Met behulp 
van de DO functie is het mogelijk een 
WHILE conditie aan het einde van de 
samengestelde opdracht, dit is de se¬ 
rie opdrachten tussen de accolades, 
te zetten. Een voorbeeld: 
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accolades. Na de conditie, als er meer | 
dan 1 opdracht is, moet het blok van j 
opdrachten dus aangegeven worden 
met accolades. Dus, algemene stel¬ 
ling: IF (conditie) (blok van opdrachten 
tussen accolades) (ELSE) (blok van 
opdrachten tussen accolades) Ook 
hier weer een klein voorbeeld. 

main() 

{ 

int getal; 

scanf("%4d",getal); 
if(getal <0) 

printf("Het getal is kleiner dan 0 \n"); 
else 

printf("Het getal is groter of gelijk aan 

0 \n");) 

In BASIC zou de routine luiden; 

input getal 

if getal <0 then print "Het getal is 
kleiner dan 0" 

else 

print "Het getal is groter of gelijk aan 
0 " 

end if 

Het voorbeeld is simpel, doch het 
geeft aan wat van de IF functie ver¬ 
langd kan worden. Ook bij de IF func¬ 
tie is het weer mogelijk andere func¬ 
ties, waarvan een waarde te verwach¬ 
ten is, in de conditie te betrekken. Bij¬ 
voorbeeld: 

if((venster=(struct Window*) 

OpenWindow(NewWindow))==NULL) 

exit(FALSE); 

Binnen de IF functie wordt nu de func¬ 
tie OpenWindow() aangeroepen. De 
hiervan terugkomende waarde wordt 
in de variabele ‘venster’ gezet. Even 
tussen twee haakjes. Dit stukje pro¬ 
grammacode wordt vaak gebruikt bij 
de Amiga om een nieuw scherm te 
openen. Hierover zometeen meer. Te¬ 
gelijkertijd wordt er nog getest of de in- 
houd van ‘venster’ gelijk aan 0 (NULL) 
is. Dus het equivalent hiervan is, ven- 
ster=(struct Window *) Open- 

Window(NewWindow); if(ven- 

ster==NULL) exit(FALSE); Het achter 
het = teken vermelde (struct Window 
*) is een zogenaamde ‘cast’. Het gaat 
een beetje ver om dit nog in deze af¬ 
levering te behandelen. Neemt u 
daarom voorlopig maar aan dat dit er 
voor zorgt dat als twee variabelen niet 
van de juiste type zijn, toch de waarde 
van de variabelen overgedragen kan 
worden. Goed, nu genoeg theorie. Het 
wordt tijd voor een 'Amiga waardig’ 
voorbeeld. 

Een praktijk voorbeeld in C 

We hebben er daarnet al even over 
gesproken. Een nieuw scherm ope- i 


nen. In BASIC is dit een vrij simpele 
klus. Gewoon het commando WIND¬ 
OW gebruiken, de juiste waarden in¬ 
vullen en hoppa, daar staat het won¬ 
derschone geheel al. Nee, zo snel 
bent u er in C niet vanaf. Hoewel dit 
ook wel simpel is komt er toch iets 
meer om de hoek kijken. We beginnen 
bij het begin. Voor het maken van een 
nieuw Window zijn er drie ‘structures’ 
van belang. Het begrip ‘structure’ heb¬ 
ben we nog behandeld maar we zul¬ 
len het proberen in het kort uit te leg¬ 
gen. Een ‘structure’ is een verzame¬ 
ling van gegevens die u onder een 
naam aan kunt roepen. Een gedetail¬ 
leerdere uitleg van structures kunt u in 
één van de volgende afleveringen van 
deze serie verwachten. Weer terug 
naar het Window voorbeeld. Hoe zien 
de structures, die we bij het nieuwe 
Window moeten gebruiken, eruit. Het 
zijn er drie, IntuitionBase, NewWind- 
ow en Window. Onder de noemer 
NewWindow zijn dus meerdere gege¬ 
vens bereikbaar die gebruikt worden 
voor het nieuwe window. Dit zijn on¬ 
dermeer de breedte van het nieuwe 
window, de hoogte van dit window et- 
cetera. De breedte van dit nieuwe 
window wordt bijvoorbeeld zo opge¬ 
geven: NewWindow.Width=320;. 


tuur. Het geeft een pointer af naar al¬ 
lerlei verschillende routines die door 
Intuition maar ook door de gebruiker 
gebruikt kunnen worden. Aangezien 
wij het window via Intuition routines 
gaan openen hebben we deze pointer 
wel nodig. Tenslotte de Window struc¬ 
tuur. Als het window geopend is, kan 
het bereikt worden door middel van 
deze structuur. Het is de grotere broer 
van de NewWindow structuur. De 
NewWindow structuur dient alleen om 
de kenmerken van een nieuw scherm 
door te geven. Met behulp van de 
Window structuur kunt u van een al 
bestaand window de kenmerken uitle¬ 
zen of veranderen. Pas hiermee wel 
op, want voor u het weet zit u met een 
Guru-meditation. Nu nog even de be¬ 
langrijkste kenmerken van de New¬ 
Window structuur: 

NewWindow. LeftEdge: geeft aan 
waar de linkerrand begint. NewWind- 
ow.TopEdge: waar begint de boven¬ 
kant van het window. NewWind¬ 
ow. Width: de breedte. NewWind- 
ow.Heigth: de hoogte. NewWind- 
ow.DetailPen: de kleur van de border, 
dus de rand. NewWindow.BlockPen: 
de kleur van de cursor. 

NewWindow.Title: de titel van het 
window. 



Dus de breedte van dit nieuwe wind¬ 
ow wordt 320 pixels. Zo ook bij New- 
Window.Heigth. Dus binnen de New¬ 
Window structuur zijn allerlei kenmer¬ 
ken aan te roepen. U roept in het be¬ 
gin van het programma de NewWind¬ 
ow structuur aan en geeft hieraan een 
eigen naam, bijvoorbeeld, NW. Om 
deze structuur nu deze naam te geven 
moet u in het begin declareren, struct 
NewWindow NW;. Voor het program¬ 
ma is deze NewWindow structuur nu 
onder de naam NW bereikbaar. Alle 
kenmerken van de NewWindow struc¬ 
tuur zijn gekopieerd naar de nieuwe 
structuur NW. Ditzelfde gebeurt ook 
voor de andere twee structuren die we 
moeten gebruiken. IntuitionBase is 
een moeilijke en ingewikkelde struc¬ 


Vergeet niet dat u bij NewWindow de 
juiste waarde opgeeft. Dus niet breder 
dan 640, en niet smaller dan 0. Ook 
dient u de hoeken binnen de grenzen 
op te geven. Dus niet verder naar bo¬ 
ven dan 0 en niet verder dan 200 naar 
beneden! Dus voor de duidelijkheid: 

0 Tot 200 verticaal en 0 tot 640 hori¬ 
zontaal bij een resolutie van 640*200 
en 0 tot 200 verticaal en 0 tot 320 ho¬ 
rizontaal bij een resolutie van 320*200 

NewWindow.Flags: de verschillende 
kernmerken van het window. Dit zijn 
ondermeer: 

ACTIVATE : window wordt actief als 
het geopend is. 

BORDERLESS: het window krijgt 
geen border. 
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SMART_REFRESH: de inhoud van 
het window wordt opgeslagen als er 
een ander window overheen ligt. 
NewWindow.Type: 

WBENCH- of CUSTOMSCREEN. 
NewWindow.Screen: een pointer naar 
het scherm waar het window in ligt. 
NewWindow.MinWidth : minimale 
breedte bij verkleinen met de muis. 
NewWindow.MinHeight: minimale 

hoogte. 

NewWindow.MaxWidth : maximale 
breedte. 

NewWindow.MaxHeigth: maximale 

hoogte. 

Als u alle kenmerken opgegeven 
heeft, kunt u met de naam die u de 
NewWindow structuur gegeven heeft, 
bij ons was dit immers ‘NW’, met de 
functie OpenWindow(pointer naar 
het venster) openen. OpenWind- 
ow(pointer naar het venster) levert 
een adres op. Dit adres geeft aan 
waar in het geheugen het venster 
staat. Deze moet u opslaan in een va¬ 
riabele. Deze variabele moet van het 
type ‘Window structure’ zijn om alle 
kenmerken van het nieuwe window op 
te kunnen slaan. Dus, stel u noemt 
deze variabele ‘mijnvenster’ en u 
heeft een NewWindow structuur die 
heet NW, dan geeft u op: mijnven- 
ster=(struct Window *) OpenWind- 


ow(&NW);. Als laatste dan nog, als u 
het venster weer wilt sluiten maakt u 
gebruik van de functie CloseWind- 
ow(pointer naar het venster). In ons 
voorbeeld zal dit dan zijn CloseWind- 
ow(NW). 


voor nodig heeft. De Window structuur 
alleen al omvat veel meer kenmerken 
dan dat wat wij hier behandeld heb¬ 
ben. Met het hierbij afgedrukte voor¬ 
beeld hopen we u een idee te geven 
en mischien biedt dit voor u een aan¬ 



Als u er nog niets van snapt, nou ja na 
u de zondvloed. Misschien heeft u 
rond de kerst nog wat tijd om hier in te 
duiken. Dit voorbeeld is alleen maar 
bedoeld een idee te geven van hoe 
een window opgezet wordt, het is niet 
een volledige beschrijving van alle 
functies en structuren die men hier- 


zet tot experimenteren, immers uw 
computer gaat niet dood van een 
‘Guru’. De volgende keer komen on¬ 
dermeer de C functies SWITCH, 
CASE, GOTO aan de orde. Ook zul¬ 
len we het over pointers en functies 
hebben. Tot de volgende aflevering?! 
JOHAN & JOHAN 


Iedereen die al wat langer met de AMIGA werkt zal beamen dat het grafisch een uit¬ 
stekende computer is. Tekenpakketten zijn dan ook in grote getale te verkrijgen, de 
één nog mooier dan de andere. Om echter goede resultaten op het beeldscherm te 
verkrijgen, is het niet alleen voldoende om over tekentalent te beschikken. 


Easyl tekenblad 


E en behoorlijke ervaring in het omgaan met de computer bleek nog nood¬ 
zakelijker te zijn. Maar het grootste stuikelblok blijkt steeds weer te zijn, 
de muis. Dit ‘diertje’ geliefd bij vele computeraars is niet nauwkeurig genoeg 
om strakke tekeningen af te leveren. Maar voor vele problemen worden op¬ 
lossingen gevonden en ook hier is de redding nabij. De Easyl is op de markt 
gekomen. 



A00C 


De naam doet het al vermoeden, Ea¬ 
syl betekent vrij vertaald eenvoudig, 
makkelijk. Het is een tekenplaat die 
aan een AMIGA 500, 2000 of 1000 is 
te koppelen. Op deze tekenplaat 
wordt een vel papier gelegd, en op de 
traditionele manier kan er worden ge¬ 
tekend. 

De Easyl is ontwikkeld in Canada bij 
Anakin Research. Een aardige bij¬ 
komstigheid is dat één van de ontwer¬ 
pers van deze tekenplaat een Neder¬ 
lander is. Dit bedrijf houd zich speciaal 


bezig met het ontwikkelen van electro- 
nische apparatuur, en de daarbij be¬ 
horende software. We hopen er dus 
binnen kort meer van te zien. 

Wij hebben het pakket enige weken 
mogen uitproberen. Zoals gebruikelijk 
is wordt er voor een soft- of hardware 
aanpassing verkrijgbaar is al een 
vooraankondiging gedaan. Zo ook nu, 
alleen hadden we geen idee wat we 
ons moesten voorstellen bij een te¬ 
kenplaat die aan de computer moest 
worden gekoppeld. Het geheel blijkt te 


bestaan uit een tekenplaat, een kast¬ 
je met hardware, de software en na¬ 
tuurlijk een handleiding. 

De tekenplaat bestaat uit een recht¬ 
hoekige plaat van 45 x 33 cm. Het 
middelste gedeelte, ruim A4, bestaat 
uit een drukgevoelige plaat. Aan de 
rand van deze plaat bevindt zich een 
rij kleur blokjes. Deze corresponderen 
met de kleuren uit het kleuren pallet 
van de software. Op de plaat zijn ook 
nog twee drukplaatsen te vinden die 
overeen komen met respectievelijk de 
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linker- en de rechter muisknop. Het 
werken met deze tekenplaat gebeurt 
dus helemaal los van een muis of een 
toetsenbord. Dit komt de snelheid en 
de concentratie wel ten goede. 

Hardware 

De onmisbare hardware zit in een de¬ 
gelijk uitgevoerd kastje. Deze wordt 
aan de uitbreidingssleuven aan de zij¬ 
kant van de Aiga gekoppeld. Doordat 
bij de Amiga 1000 deze aansluiting 
aan de rechterkant en bij de 500 en de 
2000 zitten deze aan de linkerzijde, 
zijn er verschillende versies voor de 
diverse Amiga’s. Gelukkig is er bij het 
ontwerp aan gedacht dat deze aan¬ 
sluitingen van de Amiga ook voor an¬ 
dere doeleinden wordt gebruikt. Denk 
hierbij maar eens aan een harddisk, j 
Het kastje bezit dan ook een 
doorverbinding zodat alle eventuele 
andere uitbreidingen probleemloos 
kunnen worden aangesloten. Een 
lampje aan de voorzijde geeft aan 
wanneer het apparaat in gebruik is. 

16 kleuren 

Aansluiten zal voor niemand proble¬ 
men geven. Zelfs de handleiding is 
hierbij niet nodig. Het hardware kastje 
in de uitbreidingssleuf steken, het ka¬ 
beltje tussen de plaat en de hardware 
plaatsen en het geheel is klaar voor 
het gebruik. Let er wel op dat dit alleen 
mag gebeuren als de computer uit 
staat. De software die wordt meegele¬ 
verd is een hoogwaardig tekenpro¬ 
gramma, die het gebruik van de te¬ 
kenplaat volledig ondersteunt. De 
kleuren commando strip, die aan de 
zijkant van de drukgevoelige plaat zit 
kan alleen bij dit Easyl programma 
worden gebruikt. Buiten de 16 ver¬ 
schillende kleuren, die kunnen wor¬ 
den gekozen uit een kleurenpalet in 
het programma, zitten er een paar ex¬ 
tra functies op. Bijvoorbeeld het invul¬ 
len en een tekening wissen. Het pa¬ 
pier mag alleen worden vastgezet op 
het bord met plakband of nog beter 
met de meegeleverde "pegs". Dit gaat 
heel eenvoudig, U maakt in uw vel pa¬ 
pier een paar gaatjes met een perfo- 
rator. Nu plakt U de zelfklevende pegs 
op de juiste plaat op het bord en uw te¬ 
keningen liggen altijd perfect op uw te¬ 
kenplaat. Doordat de tekeningen dan 
altijd op de zelfde plaats liggen heeft 
U ook geen paskruisen meer nodig. 

Op de Nederlands markt wordt het 
programma Easyl geleverd met een 
NTSC en een PALdriver. Door de PAL 
versie te kiezen wordt het gehele 
beeldscherm gebruikt. Het program¬ 
ma gaat er van uit dat niet alle mensen 


gelijk zijn, er zijn links- en rechtshan- 
digen, U kunt deze keuze maken door 
het aanklikken van de desbetreffende 
ikoon. Zodra de Easyl driver is gela¬ 
den kunt U eventueel de diskette ver¬ 
wijderen en een ander programma 
gaan laden, DPaintll, Pagesetter, 
DrawPlus en vele andere. Het is vol¬ 
doende de ikoon van het programma 
dat U wilt gebruiken aan te klikken, het 
programma werkt verder normaal 
maar nu kunt U kiezen of U de muis of 
een pen (potlood) wilt gebruiken. Ea¬ 
syl is zowel te gebruiken met één of 
twee diskdrives. Dit kan U vele malen 
wisselen van diskettes besparen. Alle 
tekeningen die met de Easyl worden 
gemaakt worden weggeschreven in 
het voor de Amiga standaard formaat 
van IFF files. Dit houdt in dat u ook te¬ 
keningen die met een ander pakket 


zijn gemaakt, mits deze ook in dit for¬ 
maat werken, kunt laden. Alle bewer¬ 
kingen op en aan deze tekeningen zijn 
mogelijk. Aan te geven is ook of een 
tekening liggend, in landscape, of juist 
rechtop, in portrait, moet worden 
weergegeven. Het Easyl programma 
werkt met twee schermen, het voor¬ 
grond en het achtergrond scherm. 
Een tekening kan op het voorgrond- 
scherm in één of meerdere delen wor¬ 
den gemaakt, is men tevreden over 
het resultaat dan is de opdracht keep 
voldoende dit onderdeel naar het ach¬ 
tergrond scherm te doen verhuizen. 
Voldoet het resultaat van uw inspan¬ 
ning niet aan de verwachtingen dan is 
dit onderdeel door restore te verwijde¬ 
ren. Deze commando’s zijn zowel met 
de muis, het toetsenbord als via de te¬ 
kenplaat te geven. 

De kleurenstrip op het tekenbord geeft 
16 verschillende kleuren weer. Onder 
deze kleuren staat een rij cijfers, deze 
loopt van 1 naar 16. Deze 16 num¬ 
mers corresponderen met een grijs- 
schaal die loopt, U raad het al van 1 
tot 16. In combinatie met een gekozen 
kleur, bijvoorbeeld geel, geeft dit U 


een kleurvariatie van 16 kleuren geel, 
oplopend van licht naar donker. Deze 
optie is alleen te gebruiken bij een ge¬ 
kozen resolutie van 320 pixels hori¬ 
zontaal. Bent U niet helemaal tevre¬ 
den met de beschikbare kleuren, dan 
is dit kleurenpallet naar behoefte te 
wijzigen. Natuurlijk ontbreken de ge¬ 
bruikelijk attributen uit de ‘gewone’ te¬ 
kenprogramma’s niet in dit pakket. 
Eén onderdeel mis ik in dit pakket, 
printen dat is niet zonder meer moge¬ 
lijk. Om het programma qua geheu¬ 
gen klein te houden is er geen print 
optie opgenomen. Om een tekening te 
kunnen printen moet U een ander te¬ 
kenprogramma laden, de tekening 
binnen laden en dan gaan printen. 
Hierdoor is het echter wel mogelijk dat 
de tekenplaat samen werkt met uw fa¬ 
voriete tekenprogramma. 


Wat heeft U nodig om met deze teken¬ 
plaat te kunnen werken? : 

0 Een Amiga 500, 1000 of een 2000 
(let op de verschillende Easyl uit¬ 
voeringen) 

° Het beschikbare geheugen moet 
minimaal 512 K zijn, liever ietsje 
meer 

0 De Easyl tekenplaat en de bijbeho¬ 
rende software 

0 Een heel klein beetje tekentalent. 

Conclusie: een prima stukje gereed¬ 
schap dat zeker voor de mensen die 
goed met een pen en papier overweg 
kunnen. Ook zij die niet zoveel erva¬ 
ring hebben met een computer kun¬ 
nen nu tekeningen maken die bijvoor¬ 
beeld tijdens een grafische presenta¬ 
tie op de Amiga worden gebruikt. 
Deze animaties blijven één van de 
sterkste kanten van de AMIGA. 

De Easyl wordt geleverd door de firma 
Cat & Korsh International in een prijs¬ 
klasse vanaf 899,-. Inlichtingen 010 - 
4507696 
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